— O — — — 


SATURN SOFTWARE LIMITED 


PRESENTS 


>>>> X-RAY <<<< 


RELEASE 2.0 


BY 


Ralph Deane 


& 


Jack Brown 


Distributed by: 


SATURN SOFTWARE LIMITED 

POST OFFICE BOX 397 

NEW WESTMINSTER, BRITISH COLUMBIA 
ҮЗІ, 4Ү7, CANADA 


X-RAY 2.0 


DISCLAIMER 


SATURN SOFTWARE LIMITED and the authors make no warranties, either 
expressed or implied, with respect to this manual, or with respect to 
the software it describes, or its quality, performance, or suitability 
for any particular application. In no event will SATURN SOFTWARE 
LIMITED or the authors be liable for any direct, indirect, incidental, 
or consequential damages resulting from any defects in the manual or 
software supplied. 


While this software package is now operational of the author's 32K 
SYM-1/KTM-2 system, it should be expected that the purchaser may have 
to provide custom 1/0 drivers to match his/her particular terminal and 
printer configuration. 


COPYRIGHT NOTICE 


X-RAY 2.0 COPYRIGHT (C) January 1, 1982 
BY SATURN SOFTWARE LIMITED (ALL RIGHTS RESERVED) 


This manual describing X-RAY, and the accompanying cassette 
containing the X-RAY object code and source files, are copyrighted, and 
are provided for the personal use and enjoyment of the original 
purchaser only. All rights are reserved. Reproduction by any means 
whatsoever, without the prior written consent of SATURN SOFTWARE 
LIMITED, is strictly prohibited. The original purchaser is, however, 
permitted to make backup copies of the cassette software to protect 
against accidental loss or erasure. The use of X-RAY for the promotion 
of sales of microcomputer hardware and equipment is strictly prohibited 
without the prior written consent of SATURN SOFTWARE LIMITED. 


Address all communications to: 


John W. Brown, President 

SATURN SOFTWARE LIMITED 

POST OFFICE BOX 397 

NEW WESTMINSTER, BRITISH COLUMBIA 
V3L 4Y7, CANADA 
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Introduction 


Extended RAE ( X-RAY ) is a program designed to extend and enhance 
Synertek's RAE-1 ROM(s). It adds a very fine line editor, much needed 
by RAE, and also adds more editing commands. This is all integrated in 
such a way as to appear to be part of RAE. X-RAY makes developing a 
program much easier as it fills many deficient areas in RAE. 


Equipment Required 


X-RAY requires the following minimum hardware in order to execute 
properly : 


1. а SYM-1 computer with the RAE-] ROM(s) installed 


2. at least 8K of RAM, which is sufficent to hold the X-RAY code and 
provide a decent text file area. 


3. а KIM -2/80 or equivalent terminal. Conversely, any terminal can 
be used but some line editing features are lost or diminished. 


4. (optional) a printer attached to the SYM-1 20 ma current loop. 


5. (disk version) а HDE minidisk system with FODS V3.1 at $7380. 
X-RAY is set up for a two drive system and will have to be modified for 
more or less drives. 


System Startup 


The X-RAY system is entered at the NEW.COLD address. This will 
initalize the necessary pointers and values required by a cold start. 
Disk versions will also turn off the drives and set the default drive 
to number 2. 


The accompanying cassette contains in the following ordrer: 
a) Three copies to the cassette version object ID-CO 


b) Three copies of the HDE disk version object ID-DO 
с) Two sets of the X-RAY source files Е10, F20, F30, and F40. 


Cassette based users can get started with .L2 CO (ret) followed by 
-G 200 when the succesful load is complete. Disk based users must use 
-L2 DO (ret) and then wait for the cassette version of the object to be 
by-passed. The object can then be saved to disk from FODS with: 


ENT 1/$0200$0BDD-ZXRY (ret) 
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A warm start can be done by entering at the address NEW.WARM. 
This will do a normal RAE warm start but will also reinitalize the 
cassette ports so that motor control is still enabled. 


After either a cold or warm start you enter the RAE editor 
program. The system status data is printed out, along with the ">" 
prompt. At this point you are now in the X-RAY line editor. 


Line Editor 


The X-RAY line editor started life as the Super Terminal Patch by 
Jack Brown (Saturn Softnews Vol 1 No 3). It has since been modified 
and expanded to improve its features. 


This line editor uses control codes to move the cursor to various 
points in the input line, for insertions and/or deletions. For this 
reason, a terminal with an addressable cursor is desirable. However , 
as will be seen later, almost any terminal can be used with only minor 
changes. 


The control codes used by the line editor, together with their 
actions, is documented in the following : 


Control-A 


Move the cursor to the start of the input line. This does not 
clear or cancel the current line contents. 


Control-B 


Insert a special blank character into the line buffer and then do 
a carriage return. This is used to insert a blank line into a file. 


Control-C 


Cancel and exit auto line mode. This is equivelent to the 
standard sequence : 


>// <ret> 
>AU <ret> 


used by RAE. 
Control-D 


Change the direction of the scrolling editor to down (smaller line 
numbers) and then do a carriage return. 


Control-H 
Back up the cursor one position on the screen and in the line 
buffer. This does not affect the contents of the line. If the cursor 


is already at the start of the line, it will wrap around and appear at 
the end of the line. 
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Control-I (TAB) 

Move the cursor forward one position in the buffer and оп the 
screen, updating if necessary. The line contents are not affected. If 
the cursor is at the end of the line, it will wrap around and appear at 
the start. 

Control-J (LineFeed) 

Put the system into auto line mode with a step size of l. If 
linefeed is typed at the end of a line (instead of carriage return) the 
line contents will be processed before the auto line prompt. 


Control-M (Carriage Return) 


Send the buffer contents to the command processor (X-RAY and RAE) 
for processing. The line is truncated at the current cursor position. 


Control-P 

Toggle the RAE hardcopy flag on and off. The line count is set to 
4 and the page count to 0, avoiding a page number until the second page 
is printed. 
Control-S 

Escape to the SYM monitor. To return to X-RAY type : G «ret? . 
Monitor output will be echoed to the printer if the hardcopy flag is 
set. 


Control-T 


Toggle the cassette motors on and off. This is identical to the 
RAE Control-T except that the characters are not echoed to the screen. 


Control-U 


Change the direction of the scrolling editor to up (larger line 
numbers) and then do a carriage return. 


Control-X 

Cancel the current line of input. This will also cancel the 
scrolling editor. Note that control is not returned to RAE, only to 
the start of the line editor. 


Control-Y 


Exit to the SYM monitor for one command. Upon completion of the 
command control is return to the line editor. 


Control-Z 


Move the cursor from its current position to the end of the line. 
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The screen is updated if necessary. 
Escape (ESC or ASCII $1B) 


Escape is always followed by another character. It will move the 
cursor through the line and stop just after the first occurance of that 
character. 


Delete (DEL or ASCII $5F or S$7F) 


Delete the character to the left of the cursor and close up the 
space in the buffer. The screen is not updated. 


All other control codes are ignored. All printable characters are 
inserted into the line at the current cursor position. The screen is 
not updated after an insertion, so it may appear that you are 
overtyping existing characters. A Control-Z will update the screen 
after an insertion. 


For those of you who do not have a terminal with an addressable 
cursor, the line editor can still be used with minor changes. The 
location addressed by the label KTMFLG holds a flag which indicates the 
type of terminal being used. If KTMFLG is set to 501 then ап 
addressable cursor terminal is assumed. When KTMFLG is set to $00 then 
a dumb (non-addressable cursor) terminal is being used. In the dumb 
terminal mode the line editor is slightly different. The Control-H 
command is inactive and is ignored if input, and the Delete command 
will output а '®' instead of backing up the cursor. The other control 
codes execute the same as previously described. 


New Commands 


The X-RAY system does more than just add a line editor to RAE. It 
also adds a command processor and eight new commands. The commands use 
RAE format and are indistinguishable from the existing commands. These 
new commands fill some large gaps in RAE's editing function and will 
make file preparation much easier. 


The new commands, their two letter codes, and description are as 
follows : 


ADDRESS ( AD ) 
AD line# 


used in the form : 


This command will output the starting address of the line which is 
numbered 'line#'. If no such line exists, the command is ignored. 


APPEND ( AP ) 

used in the form : AP line# 
This is the scrolling editor. It is used to step through a file line 
by line, all the while remaining in line edit mode. APPEND will search 
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for the line numbered 'line#' and, if found, will dump it to the line 
buffer. At this point you can edit the line contents using the line 
editor. When you are finished editing, you enter carriage return, line 
feed, Control-B, Control-D ог  Control-U to terminate the line. Тһе 
action of each terminator is : 


Carriage Return - this is the normal terminator. It re-enters the line 
into the file and continues scrolling in the preset direction. The 
default direction is set to up - ie. increasing line numbers. 


Control-D - this is used to change the scrolling direction to down - 
ie. decreasing line numbers. The line currently in the buffer is 
re-entered into the file. 


Control-U - this will -change the scrolling direction to up. The 
current line buffer contents are re-entered into the file. 


Line Feed - this re-enters the current line into the file and then 
enters auto line mode with a step size of 1. At this point you are no 
longer in the  APPEND command but are in normal auto line entry mode. 
New lines are now created and entered into the file. Auto mode is 
terminated by a Control-C, at which time you re-enter APPEND mode with 
no change in the previous direction. 


After entering the terminator, the next line in sequence is dumped to 
the line buffer and the action is repeated. The scrolling edit is 
terminated when you : 


a. reach the end of the file (scrolling up). 
b. reach the start of the file (scrolling down). 
c. enter a Control-X. 


A Control-X cancels APPEND mode without altering the contents of the 
current line. 


EXECUTE ( EX ) 


used in the form : EX addr 

This command is used to switch input from the keyboard to a RAE file. 
The file, which is located starting at 'addr', contains commands for 
RAE to execute. Each command must be entered оп а separte line of the 
file. Input will continue from the file, errors or not, until the file 
end is reached. Input then resumes from the keyboard. 


FILE ( FL ) 


used in the form : FL addr 

This command is used to reinstate a text file. The new file is assumed 
to start at 'addr' and the text-start pointer is set to that address. 
The file is then searched to find the end address, which is stored in 
the end-of-text pointer. This will recover any RAE file in memory. 
This command will not recover an accidentally cleared file. 
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RESTORE ( RE ) 
used in the form : RE 


This command is used to recover a file after a cold start or an 
accidental CLEAR. It will remove the EOF marker that RAE put at the 
start of the file and will set the end-of-text pointer to the proper 
address. It is assumed that the file starts at the current text start 
address. This command will only work properly if the first line in the 
file has only one character. 


SAVE ( SA ) 


used in the form : SA id addrl addr2 
This command is used to save object code onto tape. It is equivalent 
to the SYM monitor command 


.52 id,addrl,addr2 


The tape startup delay is reset to the proper value by SA so that it is 
possible to read the tape thus produced. This was not always the case 
when exiting RAE to save code using S2. 


SORT ( SO ) 
used in the form : 50 


The SORT command is used to do а alphabetical name sort оп the label 
file. It is used after Pass 1 of an assembly to produce а sorted 
symbol table at the end of Pass 2. SORT uses the relocating buffer 
area as temporary storage so the buffer pointer must point to usable 
memory. The sort routine is a modified "hypersort" originally written 
by J. CYR and published in RAE NOTES issue number 3. 


TAPE ( TA ) 
used in the form : TA 1 or TA 2 


This command allows you to change the speed of the SYM cassette tape 
interface. TA 2 sets the speed to twice normal (SYM x 2) while TA 1 
resets it to normal (SYM x 1). The other commands affected by the 
speed up/down are : GET PUT SAVE and the monitor commands L2 and 
52. Some SYM systems do not work reliably at the faster speed and some 
tweeking of the speed values may be needed. The high speed values are 
set in the routine addressed by the label SPD2. 


As well as adding these new commands, X-RAY also modifies the RAE 
line edit command EDIT. If the form of EDIT is : 
ED line# 


then the X-RAY version is executed. The other version of EDIT is 
unchanged. Тһе new ED command will dump the line numbered  'linef' to 
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the input buffer, where you can edit it using the line editor commands. 
The line is re-entered into the file by a carriage return. 
Other Features 


The X-RAY system has other features besides those 
described. Some of these are : 


already 


1. All 1/0 is vectored through a series of jumps at the start of the 
program. For those with non-standard I/O devices these vectors should 
be changed to point to your routines. Do not change the SYM 1/0 
vectors, as X-RAY with not run if you do. 


2. А printer interface is built-in to X-RAY. This assumes а 2400 baud 
device attached to the SYM current loop, with the ready flag on bit 0 
of VIA #1 Reg B. 


3. Тһе baud rate of the terminal and printer сап be changed by 
changing the value of  PBAUD (printer) and КВА) (terminal). Тһе 
default values are 2400 and 4800 baud, respectively. 


4. In the cassette version, the continue-on-tape (.CT) patch is 
built-in and is initalized by either a warm or cold start. 


5. The start and end addresses of the text and label files сап easily 
be changed for new cold start values. The values are in a table at 
D. TAB. 


6. The disk version uses a modified version of Tom Getty's interface. 
This interface implements the LOD, ENT and DC commands, as well as a 


continue-on-disk feature for the assembler. A description is as 
follows : 


LOD - used in the form : LOD drive# name 

This will load the file called "папе! from the drive numbered 
"агіуей!. If по drive# is specified then drive 2 is accessed. If по 
name is provided a 30 error occurs. If the file excedes the current 
text file boundry a 31 error occurs. When 'name' is preceded by a '+' 
the file is appended to the current file already in memory. 
Examples : 


LOD 1 FILE -drive# 1 
LOD 2 TEXT -drive# 2 
LOD HDEX -drive# 2 
LOD 1 +FILE -append to current file 


ENT - used in the form : ENT drivef name 

This is used to save the current file in memory onto 'drive#' with 
a file name of  'name'. If no drivef is specified then drive 2 is 
selected. If 'name' is omitted a 30 error occurs. 
Examples : 
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ENT 1 FILE -drive# 1 
ENT 2 TEXT -drive# 2 
ENT HDEX -drive# 2 


DC - used in the form : DC command-string 

This command is used to execute FODS disk commands. The entire 
command-string is passed to FODS for processing. If no command-string 
is supplied a 32 error occurs. 
Examples : 


DC DEL 2/:TEXT 

DC DIR 2 

DC FRE 1 

DC ENT 2/$1000$210F=%Z0BJ 


Please note that all FODS commands, except CPY, will return to X-RAY. 
CPY will cause a return to FODS as it modifies the break vector. A 
Control-C exit from FODS and a X-RAY warm start are required to return 
properly. 


Continue-on-disk 


The .CT operation in the assembler has been modified to work with 
both tape and disk. If the form used is : 


„ст 


then it is assumed to be а continue-on-tape call and the file is read 
from the cassette. If the form is : 


-CT drive# name 
or .СТ name 


it is assumed to be a disk call. The file called 'name' is read from 
disk off of drive number ‘drive#' or, in the second case, drive 2. 


Extending X-RAY 


The command processor portion of X-RAY is easily expanded to 
include more RAE-style commands. This section will show the procedure 
necessary to add a new command to X-RAY and will detail some useful 
built-in subroutines. 


The new command to be shown here is a variable tone alarm. It is 
based оп the shift register in VIA #3 ($A800). It is necessary to have 
an amplifier hooked to VIA #3's CB2 line (AA-5) for this alarm to 
sound. 


The name of this command will be ALARM ( AL ) and it will be used 
in the form : AL freq where 'freq' is a value between 1 and 255 
(S01 to SFF). This value will determine the alarm frequency. Once the 
alarm command is executed it will continue to sound until a key is 
typed on the keyboard. The source program for ALARM is : 


w PAW а A AANYN TAM | CATITDAT слтотгта тт т тайт ту 


| 
| 1 
| 
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ALARM LDA %500 
STA $A808 
LDA #$10 
STA $A80B ;TURN ON 
LDA #50Е 
STA $A80A ;SHIFT VALUE 
JSR GET.N ;GET FREQ 
LDA *PROC>ADDRS 


STA $A808 

JSR INTCHR ;WAIT FOR KEY 
LDA %500 

STA ЗАВОВ ;TURN OFF 

JMP PRMT.OT 


A few notes : 


1. All command routines must end with a jump to either РЕМТ.ОТ or 
NEW.HOT. NEW.HOT should be used if the stack has been messed up by the 
command routine. Otherwise use PRMT.OT. 


2. When a command routine is executed the Y register points to the 
next 'field' in the input buffer, CRT. If Y >= $50 the end of the line 
has been reached. 


Once the command routine has been written, it is time to add the 
command name to the command table. The command table is located at the 
address CMD and contains name and routine address pairs for all of 
X-RAY's commands. The table terminates with a $00. A new command is 
added to X-RAY by inserting its two character name and address pair 
into the table. The name of our alarm command is AL and its address is 
ALARM. The new command would now look like : 


CMD .BY "Ер" 
.SI EDIT 


.ВҮ 'SA' 
.5І SAVE 
.BY 'AL' 
-BY ALARM 
.BY $00 


This is all that is required to interface a new command to X-RAY. 


The routines which are useful in adding new commands are : 


GET.N - this subroutine will get the number in the field addressed by Y 
into PROC>ADDRS (low) and PROC>ADDRS+1 (high). The number may be 
decimal or hex. 


ASC.SP>DEC - get the line number from the field pointed to by Y. 


Register X must be set to $08 for the line number to be put into FIRST, 
FIRST+1 and be set to 50А for it to go into LAST, LAST+l. 
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SET.F2 - get the address of the line whose number is in FIRST, FIRST+1 
and place it іп SCRATO, ЅСКАТО+1. If the flags Z=0 or C=1 then the 
line was not found. 


PAS.SPCS - increment Y until it points to the next non-blank character 
in the line. 


NXT.FLD - increment Y until it points to the next field in the line. 
If Y >= $50 the end of the line has been reached. 


A study of the existing X-RAY command routines will show examples of 
the usage of these routines. 
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0001 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
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.LS 
——————— ARKKA ARKKA AKARAK KK 
3 ** ** 
;**  EXTENDED ENHANCEMENTS (XRAE) жж 
;** FOR SYNERTEK ASM/TED 1.0 ** 
;** ** 
ж COPYRIGHT (С) 1982 жж 
yee SATURN SOFTWARE LIMITED жж 
ж ** 
yee DISK FILE XRAYl жж 
ж FEBRUARY 17, 1982 жж 
Нам жк 
5 kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
ЕД 
; CONDITIONAL ASSEMBLY CONTROL VARIABLE 
; SET FODS EQUAL TO ONE FOR HDE DISK VERSION 
; SET FODS EQUAL TO ZERO FOR CASSETTE VERSION 
» 
FODS .DE $0001 ;SET FOR DISK VERSION 
> 
TOPMEM .DE $6000 ;HIGH MEMORY 
ORIGIN .DE $200 ;START OF PROGRAM 
STEXT .DE END.PGM ;START OF TEXT FILE 
ETEXT .DE TOPMEM-$2003 ;END OF TEXT FILE 
SLABEL .DE ТОРМЕМ-52000 ;START LABELS 
ELABEL .DE TOPMEM-$0103 ;END OF LABELS 
BUFFER .DE TOPMEM-$0100 ;RELOCATING BUFFER 
ЕД 

.BA ORIGIN 

.05 

.CE 
ЕД 
; HDE DISK EQUATES 
> 

IFE FODS-1 
EOT .DE $00A8 ;ЕМ) FODS FILE 
TXBUF .DE $7280 ;Е0р5 TEXT BUFFER 
SET2 .ПЕ $7634 ;SELECT DRIVE 2 
DS KRW .DE 97650 ;DRIVE CONTROL 
CMDINT .DE $79B3 — ;COMMAND INTERPRETER 
FODBRK .DE $7AFO ; 
DISCC.VEC .DE $00EC | ;DISK COMMAND VECTOR 
DISCI .DE $0080 ;DISK OUT VECTOR 
DISC2 .DE $0082  ;DISK IN VECTOR 

kkk 
LI 
; PAGE ZERO DEFINITIONS 
> 
CTROLYVEC .DE $0000 ;USER CONTROL Y VECTOR 
USERVEC .рЕ $0003 — ;USER COMMAND VECTOR 
> 
EXPTR .DE $00FA =; START. OF SCRATCH PAD AREA 
UPDFLG .DE $009E ;UPDATE LINE FLAG 
YMAX .DE $009F ;LINE LENGTH REACHED 
SCRATCH .DE $00B0 


0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
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LEN .DE 500В1 
APP .DE $00B2 
DIREC .DE $0083 
EXFLG .DE $00B4 
NUMFLG .DE $00B5 
PRTVEC .DE $00B6 
SAVEYY .DE $00C7 
PUREC .DE $00C8 
PROC>ADDRS .DE 50001 
TPRES .DE $00D3 
ERRORS .DE $00DB 
SCRATO .DE $00DD 
SUP. OUT .DE $00E3 
DISCI .DE 500ЕЕ 
DISCO .DE $00EF 
DISCI.VEC .ПЕ $00F6 
CURNT .DE $00FC 
NXT. PTR .DE $00FE 
CRTI „БЕ 210000000 
TTYI .DE 201000000 
TTYO .DE 200100000 
CRTO . DE 200010000 
> 

VIADRB .ПЕ $A000 
VIADDB .DE $A002 
HSB DRY .DE 5А632 
TAPET 1 .DE $A635 
TAPET2 .DE $A63C 
EAL .DE $A64A 
EAH .DE $A64B 
SAL .DE 5А64С 
SAH .DE $A64D 
ID .DE $A64E 
TAPDEL .DE $A630 
SDBYT .DE $A651 
TECHO .DE $A653 
TOUTFL .DE $A654 
INVEC .DE $A660 
OUTVEC .DE $A663 
UBRKVC .DE $A676 

, 

;RAE PAGE ONE VARIABLES 
, 

TXST .DE $0100 
TXEN .DE $0102 
STST .DE $0104 
STEN .DE $0106 
FIRST .DE $0108 
LAST .DE $010A 
INCBY .ПЕ 5010С 
MANU .DE 5010Е 
FORMAT .DE $010F 
FILE.NO .DE $0110 
HEX/ DEC .DE $0111 
PASS .DE $0113 
CON. TAPE .DE $0114 


;PROTECTED POINTER 
;APPEND FLAG 
;DIRECTION OF SCROLL 
;EXECUTE FILE FLAG 
;SKIP ІЛМЕЙ FLAG 


;USER PRINTER VECTOR 

;Y STORAGE AREA 

;INPUT BUFFER LOCATION 
;NUMBER STORAGE FROM RAE 
;PRESENT END OF TEXT 
;NUMBER OF ERRORS 
;TEMPORARY STORAGE 
;SUPPRESS OUTPUT FLAG 
;TAPE/DISK INPUT FLAG 
;TAPE/DISK OUTPUT FLAG 
;TAPE/DISK INPUT VECTOR 
;CURRENT LABEL POINTER 
;NEXT LABEL POINTER 


;CRT IN BIT 
;TTY IN BIT 
;TTY OUT BIT 
;CRT OUT BIT 


;DATA REGISTER 
;DATA DIR REGISTER 
;HIGH SPEED BOUNDRY 
;TAPE VALUE 

;TAPE VALUE 

;END ADDRESS 


;START ADDRESS 


;ID NUMBER 

;TAPE DELAY 

;SPEED BYTE 

;MON ECHO FLAG 

;TERM OUTPUT FLAG 
;TERMINAL INPUT LINK 
;TERMINAL OUTPUT LINK 


;START OF TEXT FILE 
;END OF TEXT FILE 
;LABEL FILE ADDRESS 
;END OF LABEL FILE 
;FIRST LINE# 
;SECOND LINE# 
;INCREMENT FOR AUTO 
;MANUSCRIPT FLAG 
;FORMAT FLAG 
;CURRENT FILE NUMBER 
;HEX/DECIMAL FLAG 
;ASM PASS 1/2 FLAG 
;.CT FLAG 


ну — ----.. | ее. 


1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 


AUTO 
ADDPAD 
PRINT/CTL 
LINE/ CNT 
PAGE / NUM 
TSTART 
CRT 


; 
;SUPER MON 


PAS.SPCS 
NXT.FLD 
ERROO 

ASC. SP>DEC 
SET.F2 
OUT.BYT 
CRT. IN 
CL.STAB 


we ме ме 


. DE 
. DE 
. DE 
. DE 
«DE 
. DE 
. DE 
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$0115 
$011A 
$011F 
$0120 
$0121 
$0124 
$0135 


ROUTINES 


. DE 
. DE 


$8035 
$8188 
$81B8 
$81BE 
$8309 
$8B86 
$8972 
$8342 
$8AA0 
$8A58 
$80FF 
$814A 
$8171 
58Е87 


`. 


;AUTO LINE PROMPT FLAG 
;NUMBER OF CHARACTERS 
;HARD COPY FLAG 
;CURRENT LINE COUNT 
;CURRENT PAGE NUMBER 
;TAPE START ADDRESS 
;CRT BUFFER 


;USER ENTRY TO MON 
;SAVE REGS ON STACK 
;RESTORE ALL BUT R(A) 
;RESTORE ALL BUT FLAGS 


;UNPROTECT SYS RAM 
;BEEP THE BEEPER 

;SPACE SUBROUTINE 
;OUTPUT BYTE TO TERM 
;INPUT BYTE TO TERMINAL 
;MONITOR GET COMMAND 
;DISPATCH COMMAND 
;MONITOR ERROR ROUTINE 
;TAPE WRITE 


POINTS AND SUBROUTINES 


- DE 
. DE 
. DE 
. DE 
. DE 
. DE 
«ПЕ 
. DE 
. DE 
.DE 
«DE 
. DE 
. DE 
. DE 
„Е 
. DE 
.DE 
. DE 
.DE 
. DE 
.DE 
. DE 


. DE 
. DE 
. DE 
. DE 
« DE 
. DE 


$BOOE 
$BO4B 
5В05Е 
5В096 
ЗВОАЕ 
$B502 
SB4FF 
5В44Е 
5В2Е6 
5В214 
$ЕЗЕ2 
5В5ВВ 
$BF37 
$Е05Е 
SE24A 
$E318 
$E32A 
SE3CA 
$ЕС59 
SEC64 
SEF 68 
SEF80 


CONTROL CHARACTERS 


$7F 
$5F 
55С 
507 
508 
520 


;ERROR VECTOR 

;COLD ENTRY 

;RAE WARM WITHOUT MESSAGE 
;CLEAR TEXT FILE 

;RAE WARM ENTRY POINT 
;SKIP SPACES 

;SKIP TO NEXT FIELD 
;ERROR ROUTINE 

;GET LINE # 

;FIND ADDRESS OF LINE 
;OUTPUT A AS HEX BYTE 
;OLD FILL BUFFER ROUTINE 
;CLEAR SYMBOL TABLE 
;MARK END 

;GET NUMBER VALUE 
;TURN TAPEl OFF 

;TAPE 1 ON 

;RAE'S CR LF 

;TOGGLE MOTOR 1 
;TOGGLE MOTOR 0 
;ENTRY FOR TAPE LOAD 
;TAPE FINISH 


;DELETE CHARACTER 
;ALTMODE DELETE 

;BACK SLASH FOR TTYOUT 
;BELL CHARACTER 

; BACKSPACE 

;SPACE CHARACTER 


0200- 
0203- 
0206- 
0209- 
020C- 
020Е- 
0212- 


0215- 
0216- 
0217- 


0218- 
021B- 
021D- 
021E- 
021F- 
0221- 
0224- 
0226- 
0229- 
022А- 


022C- 
022F- 
0232- 
0235- 
0238- 
023A- 
023C- 
023F- 
0242- 
0245- 
0247- 
024А- 
024D- 
0250- 
0252- 
0255- 
0258- 
025А- 
025D- 


0260- 
0263- 


86 
6C 


8B 


01 


01 


8В 
02 


РАСЕ 16 


;START OF SUPER TERMINAL CONTROL PATCH 
; 


;NOTE NEW STARTUP VECTORS 


> 
NEW.COLD JMP COLD ;NEW STARTUP ROUTINE 
NEW.WARM JMP WARM ;NEW WARMUP ROUTINE 
NEW. HOT JMP RAE.HOT ;NO MESSAGE RETURN 
INTCHR JMP INT.CHR ;INPUT CHARACTER 
TOUT JMP T.OUT ;OUTPUT CHARACTER 
TTYOUT JMP TTY.OUT  ;HARDCOPY OUTPUT 
BEEP JMP B.EEP ;BEEPER ROUTINE 
ЕД 
;PRINTER/TERMINAL BAUD RATES 
> 
PBAUD .ВҮ 506 ;VALUE FOR 2400 BAUD 
KBAUD .BY $01 ;VALUE FOR 4800 BAUD 
KTMFLG .BY $01 31=KTM O-DUMB TERMINAL 
, 
;NEW COLD START 
» 
COLD JSR ACCESS ;Т0 SYSTEM RAM 
LDX #SFF ;INITIALIZE STACK 
TXS 
INX ;R(X)=0 
STX *DISCO ;ВЕ5ЕТ FLAGS 
STX PASS ;SET FOR PASS 1 
STX *SUP.OUT ;ENABLE RAE'S ECHO 
STX PRINT/CTL ;HARD COPY CLEAR 
INX 3R(X)=1 
STX *DISCI ;5ЕТ FOR .CT PATCH 
> 
JSR KTM.I/O ;ASSUME 4800 BAUD КТМ 
JSR CAS. INIT : INITIALIZE 2ND CASSETTE 
JSR SET.VEC ;5ЕТ ALL VECTORS 
JSR D.PARM ;5ЕТ DEFAULT PARAMETERS 
LDX #$00 ;REQ'D BY COLD 
LDA #601 ;TO SET FLAGS 
STA LINE/CNT 
STA PAGE/NUM 
STA FORMAT 
STA *ERRORS 
STX INCBY 
STX INCBY+1 
STX MANU 
LDA %50С 
JSR TOUT 
JSR BEEP 
LDY %500 
JSR MESSUB 
JMP RAE.COLD 
; 
М 
МЕМ WARM START 


, 
WARM JSR ACCESS ;TO SYSTEM RAM 


JSR CAS.INIT :INITIALIZE AUX CASSETTE 


20 


02 
BO 


A0 


A0 
E3 


03 


A6 
A6 


0A 


02 
01 


02 


02 


2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 


JSR 
JMP 


š 
;SUBROUTINE TO 


ЕД 
CAS. INIT 


; 
;SUBROUTINE TO 


, 
SET.VEC LDA 
STA 


LDA 


; 
;SUBROUTINE TO 


> 
D. PARM 
D.PARMI 


LDX 
LDA 
STA 
DEX 
BPL 
LDA 
STA 
LDA 
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SET.VEC ;RESET ALL VECTORS 
RAE.WARM :OUR WARM ENTRY 


INITIALIZE SECOND CASSETTE 


VIADDB ;GET CURRENT STATE 
#$80 ;SET BIT 7 
VIADDB ;FOR OUTPUT 


ТАРЕ1.ОЕЕ :NOW TURN IT OFF 


INITIALIZE ALL VECTORS 


#960 ;DISABLE USER CALL 
*USERVEC :BY SETTING AN RTS 
ас ;SET JUMP FOR 
*CTROLYVEC :USER CONTROL Ү 
*PRTVEC ;USER PRINTER VECTOR 


#L, TTYOUT 
#H, TTYOUT 
*PRTVEC+1 
ЖРКТУЕС+2 


35ЕТ PRINT VECTOR 


#L,CTROLY1 
#H, CTROLY1 
*CTROLYVEC+1 
* CTROLYVEC+2 


;SET USER CONTROL | 
; VECTOR 


RAE. I/O 


#L,°C.CHK 
fH, 9C.CHK 
UBRKVC 
UBRKVC+1 


#L,CON. DSK 
#H,CON. DSK 
*DISCI.VEC 
*DISCI.VEC+1 
DSK.SET ;5ЕТ DISK VECTORS 
%500 
*APP 
*EXFLG 


;CLEAR FLAGS 
;NOT SCROLLING 
;NOT EXECUTE FILE 


SET DEFAULT EXTENTS 
#$07 


D. TAB,X 
TXST,X 


;MOVE IN NEW 
;DEFAULT VALUES 


D. PARM1 
D. TAB+$08 
*PUREC 
D. TAB+$09 


02C4- 
02C6- 
02C7- 
02CA- 
02CD- 
02D0- 


0201- 
0203- 
0205- 
0207- 
0209- 


02DB- 
02DE- 
02DF- 
02Е2- 
02Е5- 
02Е7- 
02Е9- 
02ЕА- 
02ЕВ- 
02Е0- 
02ЕЕ- 
02Е1- 
02F4- 
02F7- 
02F8- 


02F9- 
02FB- 
02ЕЕ- 
0301- 
0304- 


0305- 
0307- 
030А- 
0300- 
0310- 


0311- 
0314- 
0316- 
0319- 
0318- 


53 


64 


BO 


EO 


8B 


03 
A0 


02 
02 


A6 
02 
A6 


A6 


A6 


8B 


A6 


A6 


2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
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STA *PUREC+1 
INX 3R(X)=0 
JSR CL.TXT ;СІЕАК TEXT FILE 
JSR CL.STAB ;CLEAR LABEL FILE 
JSR MRK.END ;SET END OF FILE 
RTS 
> 
;SET THE FOLLOWING TO YOUR OWN VALUES 
D.TAB .SE STEXT ;START OF TEXT 
.SE ETEXT ;END OF TEXT 
«SE SLABEL ;5ТАВТ OF SYMBOLS 
.SE ELABEL  ;END OF SYMBOLS 
.SE BUFFER ;BUFFER 
3 
ЕД 
;OUTPUT TO PRINTER 
, 
TTY.OUT ЈЅЕ ACCESS ;TO SYSTEM RAM 
PHA ;SAVE CHARACTER 
JSR PRT.I/O ;USING CURRENT LOOP 
BUSY LDA VIADRB  ;PRINTER DTR HANGS 
AND #901 ;ON BIT ZERO 
BEQ BUSY ;WAIT TILL READY 
PLA ;RECOVER ACCUMULATOR 
PHA ;AND RESAVE IT ON STACK 
CMP #BS 218 IT А BACKSPACE 
BNE TTYl ;JUMP IF NOT 
LDA #BKSL ;REPLACE WITH ® 
TTY] JSR TOUT ;SENT CHARACTER 
JSR KTM.I/O ;RESET FOR TERMINAL 
PLA ;RESTORE CHARACTER 
RTS 
, 
;SUBROUTINE TO SET KTM I/O 
, 
KTM.I/O LDA ЖСЕТІЗСЕТО :GET THE RIGHT BITS 
STA TOUTFL АМО LET MON KNOW 
LDA KBAUD ;KTM BAUD RATE 
STA SDBYT 
RTS 
ЕЈ 
;SUBROUTINE TO SET PRINTER 1/0 
> 
PRT.I/O LDA #TTYO 
STA TOUTFL 
LDA PBAUD 
STA SDBYT 
RTS 
М 
;SUBROUTINE TO SET OUTPUT VECTOR SO THAT 
;MONITOR WILL ECHO TO PRINTER IF TURNED ON 
, 
MON.I/O JSR ACCESS 
LDA #500 
STA TECHO 
LDA #L,ECHAR.VEC :SET FOR MON 
STA OUTVEC+1 


—  ——- | BM Ñ e 


031E- 
0320- 
0323- 
0325- 
0328- 
032А- 
032D- 


032E- 
0331- 
0333- 
0336- 
0338- 
033B- 
033D- 
0340- 
0342- 
0345- 
0347- 
034A- 


034B- 
034E- 
0351- 
0354- 


0357- 
0359- 
035B- 
035E- 
0361- 
0363- 


0364- 
0367- 
0369- 
036В- 
036D- 
036F- 
0371- 
0373- 
0376- 
0378- 
037B- 


20 
20 
20 
4C 


A5 
FO 
4C 
20 
29 
60 


20 
c9 
DO 
A9 
C9 
DO 
A9 
AE 
FO 
20 
60 


A6 


А6 


А6 


8В 


А6 


А6 


А6 


А6 


А6 


08 
02 


03 


01 


02 


3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 


3 
;SUBROUTINE TO 


RAE. I/O 


. 
> 


3690 ; 
; CHARACTER FETCH FOR MONITOR SO PRINTER PATCH 
; WORKS PROPERLY 


3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 


3 
MGETCH 
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LDA #H,ECHAR. VEC 
STA OUTVEC+2 
LDA #L,MGETCH 
INVEC+1 

LDA #H,MGETCH 
INVEC+2 


RESET I/O FOR RAE PATCH 


JSR ACCESS 

LDA f $00 

STA TECHO 

LDA fL,CRTIN 
INVEC+1 

LDA #H,CRTIN 
INVEC+2 

LDA #1, „НЕТ. HOOK 
STA OUTVEC+1 
LDA ЇН ИЕТ. HOOK 
STA OUT VEC+2 


JSR SAVER 
JSR GETCH 
JSR OUTVEC 
JMP RESXAF 


; 
;INPUT FROM KEYBOARD 


GETCH 


GETCH1 


LDA *EXFLG ;TEST EXECUTE FILE FLAG 
BEQ СЕТСНІ ;NOT FROM FILE 

JMP EXECT ;GET CHAR FROM FILE 

JSR INTCHR ;FROM KEYBOARD 

AND #97Е 

RTS 


; 

;SUBROUTINE TO ECHO CONSOLE INPUT TO PRINTER 
;WHEN HARD COPY IS SET AND ALSO TO MAKE 

;KTM DELETE KEY CLEAN A CHARACTER OF THE SCREEN 


> 
CRTIN 


СЕТІМІ 
CRTIN2 


CRTIN3 


JSR GETCH | ;FETCH A CHARACTER 
CMP #DEL ;IF A DEL CHARACTER 
BNE CRTINI 

LDA #BS ;THEN REPLACE WITH BS 
CMP #ALT ;IF A ALT CHARACTER 
BNE CRTIN2 

LDA #BS ;THEN REPLACE WITH BS 
LDX PRINT/CTL :HARD COPY ACTIVE? 
BEQ CRTIN3 

JSR TTYOUT ;1Е SO SEND TO PRINTER 
RTS 


> 
;SUBROUTINE TO OUTPUT CHARACTER TO SCREEN 
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4040 А BACKSPACE WILL CLEAN CHARACTER OFF SCREEN 
4050 ; 
037C- C9 08 4060 CRTOUT CMP #BS ;REPLACE BACKSPACE 0010 ; 
037E- FO 09 4070 BEQ DO.BS 0020 ; kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
0382- DO 18 5090 PNE TEE 0040 ;** EXTENDED ENHANCEMENTS (XRAE) жж 
0384- 20 12 02 4100 JSR BEEP 0050 ;** FOR SYNERTEK ASM/TED 1.0 жж 
0387- 00 13 8110 BNE SENDCHR 0060 ;** жж 
0389- AE 17 02 4120 DO.BS LDX KTMFLG ;TEST FOR DUMB 0070 ;** COPYRIGHT (C) 1982 жж 
038C- DO 04 4130 BNE NOBSL ;NO 0080 ;** SATURN SOFTWARE LIMITED жж 
038Е- А9 5С 4140 LDA #BKSL ;OUTPUT 9 0090 ;** жк 
0390- DO ОА 4150 BNE SENDCHR | | 0100 ;** DISK FILE XRAY2 ** 
0392- 20 0C 02 4160 NOBSL JSR TOUT | 0110 ;** FEBRUARY 17, 1982 жж 
0395- А9 20 4170 LDA #SPC 0120 ;** ж 
0397- 20 42 83 4180 JSR SPACE | 0130 кк 
039A- A9 08 4190 BCKSP LDA #BS | | 0140 ; 
039C- 4C OC 02 4200 SENDCHR | JMP TOUT 0150 ;THIS IS THE ACTUAL START OF THE NEW FILL BUFFER ROUTI! 
4210 ; | 0160 ;IT IS ESSENTIALLY THE SAME AS THE ONE IN EXTENTED SYM 
039F- C9 3E 4220 WRT.HOOK CMP #'> ;START OF NEW LINE? 0170; :RASIC AND THE ONE IE STH-F0RTH, 
03A1- FO 03 4230 BEQ CHK.STK ;MAYBE - CHECK STACK GIBO 3 
03A3- 4C 7C 03 4240 JMP CRTOUT | 0190 
4250 ; 03E2- 20 52 06 0200 FILBUF JSR ZERBUF ;СІЕАВ BUFFER 
03A6- BA 4260 CHK.STK TSX ;CHECK IF WE CAME 0210 
03A7- BD 09 01 4270 LDA TXST+9,X :FROM OLD BUFFER — бо өтіне LDY 4500 ;POINT TO START 
03AA- C9 B5 4280 CMP #H,CRT.IN+6 :CHECK HI BYTE | 03Е7- 84 OF 0230 STE, *YMAX 
ОЗАЕ- BD 08 01 4300 LDA TXST48,X O3EB- B8 0250 NEXCHR СІМ ;BRANCH ALWAYS FLAG 
03B1- C9 СІ 4310 CMP #L,CRT.IN+6 :BETTER CHECK LO TOO Нери 
pow в ДИ 22. posed | | 03EC- 20 57 03 0270 JSR GETCH 
0385- 40 BD 93 5. JUS ИВИ. ! Q3EF- C9 20 0280 CMP #SPC ;IF CONTROL CHAR 
5 Fl- 90 0290 BCC CTROLA ;ТНЕМ PROCESS IT 
ee ATIE ТАМЫЗ | eS gg TE PROMETER 03F3- 4C 62 05 0300 JMP CHAR. | ;ELSE PROCESS CHARACTER 
03BA- 4C OC 02 4360 JMP TOUT ;AND SEND IT ALONG | | 0310 " 
4370 ; | 
F6- C9 01 0320 CTROLA. СМР #901 ;SKIP TO START 
O3BD- A2 08 4380 NEW.CRT LDX #508 ;PULL JUNK OFF STACK QU MS о egi А Seay POR we 
03BE= 65 3359 ERSTE PLA O3FA- Cá ВПШ 0340 CPY *LEN ;IF ALREADY AT START 
0200- СА 4400 DEX O3FC- DO 03 0350 BNE, BEEP11 
03С1- 10 FC 4410 BPL FIX. STK саса dd Dk с pagent 
03C3- AD 15 01 4420 PRMT.OT ТРА AUTO ;AUTO LINE PROMPTS? GENIS Xi O6 ымын "ER Due 
03C6- DO 07 4430 BNE PRMT. OUT одо 20 09 06 0990 ‘jan ЖА 
03С8- А5 B2 4440 LDA ЖАРР ;CHECK IF SCROLLING DANI. 50 KO 0390 odie A 
ОЗСА- FO 03 4450 BEQ PRMT. OUT ;HERE IF NOT | | Minds An 17 G8 DEO кер 124 epic 
03CC- 4C Bl 07 4460 JMP PART2 — ;OUTPUT NEXT LINE duse FOO ало BEQ. DUMA 
O3CF- A9 3E 4470 PRMT.OUT LDA #'> ;RESEND THE PROMPT Gait. 88 dado emo) | HY ¿BACK UP TO START 
Dr e ae EDI 040Е- 20 3B 06 0430 JSR BCKSPC 
4500 ; 0412- C4 B1 0440 CPY *LEN 
4510 ;THIS ROUTINE REQUIRED SO THAT PATCHING ROUTINE DOES | eee = EB Me es ыдан 
4520 ;DOES NOT EAT ITSELF AS WILL HAPPEN IF WE TRY TO USE | "s op 40 ES. gan ТӨЛІ tee n 
. ' ' 
4530 sats S OR MON'S OUTPUT VECTORS. | | ee BI дедік SEM ни 
0307- AE IF Ol 4550 ECHAR.VEC LDX PRINT/CTL :HARD COPY SET? pura 69 a niis 
pan 25 bs ИА pes an Piu ee е ION 041D- C9 03 0510 CTROLC CMP #503 ;TURN OFF AUTO? 
nis de ER Lieb пенсии, DE 10T 041Е- DO OE 0520 BNE CTROLH TRY FOR BS 
ane poi pati 0421- A2 00 0530 LDX #$00 ;GET A ZERO 
; 0423- 8E OC Ol 0540 STX INCBY 
4600 SCE SEATS 0426- 8E OD 01 0550 STX INCBY+1 


| 1 0429- 8Е 15 01 0560 STX AUTO 


042C- 


042F- 
0431- 
0433- 
0436- 
0438- 
043A- 
043C- 
043F- 


0440- 
0442- 
0444- 
0446- 
0448- 
0448- 
044р- 


044Е- 
0450- 
0452- 
0454- 
0457- 
0458- 
045В- 
045Е- 


0461- 
0463- 
0465- 
0467- 
0469- 


0468- 
0460- 
046Е- 
0471- 
0473- 


0475- 
0477- 
0479- 
047B- 
047D- 
047F- 
0481- 
0483- 
0486- 
0487- 
048А- 
048C- 
048Е- 
0490- 
0493- 
0496- 
0497- 
0499- 


02 


02 


05 


01 


01 


04 


01 
05 
01 


01 
01 


0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 


0900 ; 


0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


5 
CTROLH 


CTROLHI 


CTROLI 


; 
CTROLJ 


; 
CTRLU 


CTRLD 


CTROLM 


CTRLM 


CTRM 


CTLM.L 
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NEW. HOT 
#BS ;BACK SPACE? 
ствол ;NO | 
KTMFLG ;IGNORE IF DUMB SET 
NEXCHR 
*LEN ;YES- AT START ALREADY? 
CTROLH1 ;DO A BACK SPACE | 
CTROLZ1 
;FALL THROUGH WITH BS 
#509 ;HORZ ТАВ? 
CTROLJ ;ТКҮ FOR LINE FEED 
4550 ;YES- AT END ALREADY? 
CTROLA+4 ;YES 
CRT,Y ;NO- DUMP CHAR THEN 
CTROLA+4 ;BUT NOT IF ITS A NULL | 
#$0А ^  ;AUTO WITH STEP 1? | 
CTRLU | 
#00 
INCBY+1 
INCBY | 
AUTO 
CTRLM 
#$15 ;CONTROL-U ? 
CTRLD  ;NO 
#501 ;SET DIRECTION TO UP 
*DIREC 
CTRLM ;00 CRLF | 
#504 ;CONTROL-D ? 
CTROLM — ;NO 
#500 ;SET DIRECTION TO DOWN 
*DIREC | 
CTRLM 
#S0D ; RETURN? 
CTROLP ;NO | 
*LEN 
CTRM ;NO 
*APP ;SCROLLING ? 
CTRM ; NO 
#SA0 ; INSERT BLANK 
CRT,Y | 
EEOF | 
#SPC | 
CRT,Y 
ADDPAD 
CRT,Y | 


1555 
CTLM. L 
T 


—X не а ee 


049B- 
049D- 


04А0- 
04A3- 


04A6- 
04A8- 
04АА- 
04АС- 
04АЕ- 
O4B1- 
0483- 
0486- 
0489- 
04ВС- 


04ВЕ- 
04С0- 
04С2- 
04С5- 
04С8- 
04СВ- 


04СЕ- 
0400- 
0402- 
0405- 
0407- 
0409- 
040С- 
04DE- 
04Е0- 
04Е2- 
04Е5- 
04Е7- 
04Е9- 
04ЕВ- 
04Ер- 
04ЕЕ- 
O4F 1- 
04F3- 
04Е5- 
04Е8- 
04ЕА- 
04ЕС- 
04ЕЕ- 
0501- 
0504- 
0507- 


050А- 
050C- 
050E- 
0511- 
0514- 
0517- 
051A- 


00 
69 


06 


02 


04 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


> 
ВЕЕР! 
NEXCHR1 


> 
CTROLP 


CTROLP1 


; 
CTROLS 


CTROLT 


CTROLT1 


CTROLX 


CTROLXO 
CTROLXI 


3 
CTROLY 


CTROLY1 
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#500 ;SET R(X) TO ZERO 
CMD.PR ;РВОСЕЅЅ COMMANDS 
BEEP 

NEXCHR 

#$10 ;TOGGLE PRINTER ON? 
CTROLS 

#04 ;START ON LINE 4 
PRINT/CTL :GET CURRENT STATE 


CTROLP1 

#$00 

PAGE/NUM :ZERO PAGE COUNT 
PRINT/CTL :SET NEW STATE 


LINE/CNT :SET LINE COUNT 
NEXCHR1 

#$13 ;MONITOR JUMP? 
CTROLT ;NO 

MON.I/O :SET 1/0 FOR MONITOR 
USRENT 

RAE. 1/0 

NEW. HOT 

#$14 ;TOGGLE CASSETTE? 
CTROLX ;NO 

GETCH 

#$30 ;CASSETE 0? 
CTROLT1 ;NO- 

TOGO ;YES- DO IT TO IT 
NEXCHR1 

#$31 ;CASSETTE 1 THEN? 
ВЕЕРІ МО BEEP THE OPERATOR 
тос1 ;YES DO 

NEXCHR1 

#518 ;CANCEL LINE? 
CTROLY ;NO 

%500 

ЖАРР 

CTROLXO 

*APP ;CLEAR APPEND MODE 
*LEN 

CTRLM 

*LEN 

*LEN 

CTROLX1 

KTA 

EEOF 

CRLFP ;ECHO IF PRINTER ON 


FILBUF 


#519 ;CONTROL Y? 
CTROLZ ;NO 

MON.I/O :SET FOR MONITOR 
GETCOM+3 

DISPAT 

ERMSG 

RAE. 1/0 
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051D- 4C 06 02 1730 JMP NEW.HOT 058D- B9 35 01 2310 UPDATEI LDA CRT,Y 
1740 ; 0590- DO 02 2320 BNE UPDATE2 
0520- C9 1A 1750 CTROLZ CMP #$1A ;SKIP TO END? 0592- A9 20 2330 LDA #SPC 
0522- DO 10 1760 BNE ESCAPE ¿NO | | 0594- 20 OC 02 2340 UPDATE2 JSR TOUT 
0524- B9 35 01 1770 CTROLZ1 LDA CRT,Y ;YES 0597- C8 2350 INY 
0527- FO 06 1780 BEQ CTROLZ2 0598- C4 9F 2360 CPY *YMAX 
0529- 20 D7 03 1790 JSR ECHAR. VEC 059А- 90 Е1 2370 BCC UPDATE] 
052C- C8 1800 THY | | 059C- A9 08 2380 UPDATE3 LDA #BS 
052D- 50 F5 1810 BVC CTROLZ1 059Е- 20 0C 02 2390 JSR TOUT 
052F- 20 AB 05 1820 CTROLZ2 JSR EEOF 05А1- 88 2400 DEY 
0532- 50 1A 1830 BVC NEXCHR2 05А2- C4 BO 2410 CPY *SCRATCH 
1840 05A4- DO F6 2420 BNE UPDATE3 
0534- C9 1B 1850 ESCAPE CMP #$1B ;SKIP TO CHARACTER? | | 05A6- A9 80 2430 UPDATE4 ТРА #980 
0536- DO 19 1860 BNE ECHO ;NO 05A8- 85 9E 2440 STA *UPDFLG 
0538- 20 57 03 1870 JSR GETCH 05AA- 60 2450 RTS 
053B- 85 BO 1880 STA *SCRATCH 2460 ; 
053D- B9 35 01 1890 ЕЅСАРЕІ LDA CRT,Y | | 05AB- AD 17 02 2470 EEOF LDA KTMFLG 
0540- FO ED 1900 BEQ CTROLZ2 05АЕ- FO 16 2480 BEQ EEOF3 
0542- 20 D7 03 1910 JSR ECHAR. VEC 05B0- 84 BO 2490 STY *SCRATCH 
0545- C8 1920 INY 05B2- A9 20 2500 ЕЕОЕ1 LDA #SPC 
0546- C5 BO 1930 CMP *SCRATCH | | 0584- 20 0С 02 2510 JSR TOUT 
0548- FO 04 1940 BEQ NEXCHR2 0587- C8 2520 INY 
054A- CO 50 1950 CPY 4550 05B8- C4 9F 2530 CPY *YMAX ;DON'T ERASE TOO MUCH! 
054C- 90 EF 1960 BCC ESCAPEI 05BA- 90 F6 2540 BCC EEOF1 
054Е- 4С АЗ 04 1970 NEXCHR2 JMP NEXCHR1 05ВС- А9 08 2550 EEOF2 LDA #BS 
1980 05ВЕ- 20 0C 02 2560 JSR TOUT 
0551- C9 08 1990 ECHO CMP #BS ;CNTRL-H ? 05С1- 88 2570 DEY 
0553- FO 08, 2000 BEQ ECHO] ;ECHO IT 05C2- C4 BO 2580 CPY *SCRATCH 
0555- C9 02 2010 CMP #$02 ;CNTRL-B ? 05C4- DO F6 2590 BNE EEOF2 
0557- FO 25 2020 BEQ ACCEPTI ;BLANK LINE | 2600 ; 
0559- C9 20 2030 CMP #SPC ;PRINTABLE ? 05С6- 60 2610 ЕЕОЕЗ RTS 
055B- 90 Fl 2040 BCC NEXCHR2 ;NO-IGNORE 2620 
055D- 20 D7 03 2050 ECHOL JSR ECHAR. VEC 05C7- 48 2630 INSERT PHA ;SAVE CHARACTER 
0560- 50 EC 2060 BVC NEXCHR2 | | 05C8- 98 2640 TYA ;5АУЕ Y TOO 
2070 05C9- 48 2650 PHA 
0562- C9 SF 2080 CHAR. CMP #95Е ;DELETE? 05СА- А2 01 2660 LDX 4501 ;FIND BUFFER END 
0564- FO 04 2090 BEQ DELETE 05CC- B9 35 01 2670 INSERTI LDA CRT,Y 
0566- C9 7F 2100 CMP #$7F ; DELETE? | | 05СЕ- FO 04 2680 BEQ INSERT2 
0568- DO OF 2110 BNE ACCEPT 05D1- C8 2690 INY 
2120 05D2- E8 2700 INX 
056A- C4 B1 2130 DELETE CPY *LEN ;ALREADY AT START? 05D3- 50 F7 2710 BVC INSERT1 
056C- FO 08 2140 BEQ BEEP2 2720 
056E- 20 1Е 06 2150 JSR DELCHR 05D5- C4 9F 2730 INSERT2 CPY *YMAX 
0571- 20 03 06 2160 JSR MOVDWN 05D7- 90 04 2740 BCC INSERT20 ;UPDATE YMAX 
0574- 50 D8 2170 BVC NEXCHR2 05D9- C8 2750 INY 
0576- 4C AO 04 2180 BEEP2 JMP ВЕЕР! | | 05DA- 84 ЗЕ 2760 STY *YMAX ;IF NECESSARY 
2190 O5DC- 88 2770 DEY 
0579- 20 C7 05 2200 ACCEPT JSR INSERT 05DD- CO 50 2780 INSERT20  CPY #$50 ;PASSED END? 
057C- 50 DO 2210 BVC NEXCHR2 050Е- 90 08 2790 ВСС INSERT3  ;NOPE 
2220 ; 05Е1- 68 2800 PLA ;ҮЕ5- RESTORE AND BEEP 
057Е- А9 AO 2230 АССЕРТІ LDA #$A0 ; INSERT BLANK | | 05E2- A8 2810 TAY 
0580- 20 C7 05 2240 JSR INSERT 05E3- 68 2820 PLA 
0583- 4C 79 04 2250 JMP CTRLM ;DO CRLF 05Е4- 20 12 02 2830 JSR BEEP 
2260 ; | 05Е7- 50 16 2840 BVC INSERT4 
2270 ; | | | 2850 
0586- AD 17 02 2280 UPDATE LDA KTMFLG | 05E9- B9 35 01 2860 INSERT3 LDA CRT,Y 
0589- FO 1B 2290 BEQ UPDATE4 05ЕС- C8 2870 INY 
058В- 84 BO 2300 STY *SCRATCH 05Е0- 99 35 01 2880 STA CRT,Y 
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05F0- 88 2890 DEY 3470 ; 
05Е1- 88 2900 DEY 0652- AO 55 3480 ZERBUF LDY %555 
05Е2- СА 2910 DEX 0654- А9 00 3490 LDA %500 
05F3- DO F4 2920 BNE INSERT3 | | 0656- 99 35 01 3500 ZERBUF1 STA CRT,Y 
05F5- 68 2930 PLA 0659- 88 3510 DEY 
05Е6- А8 2940 ТАҮ 065А- 10 ҒА 3520 ВРІ, ZERBUF 1 
05Е7- 68 2950 PLA 065С- 60 3530 RTS 
05Е8- 99 35 01 2960 STA СЕТ,Ү ! | 3540 ; 
05ЕВ- 20 D7 03 2970 JSR ECHAR. VEC 065D- B9 DB 09 3550 MESSUB LDA TEXT,Y 
OSFE- C8 2980 INY 0660- FO 06 3560 BEQ MESSUBI 
05ЕЕ- 20 86 05 2990 INSERT4 JSR UPDATE 0662- 20 D7 03 3570 JSR ECHAR. VEC 
0602- 60 3000 RTS 0665- C8 3580 INY 
3010 | | | 0666- DO F5 3590 BNE MESSUB 
0603- 98 3020 MOVDWN TYA 0668- 60 3600 MESSUBI RTS 
0604- 48 3030 PHA ;SAVE Y 3610 ; 
0605- B9 35 01 3040 MOVDWN1 LDA CRT,Y 3620 „СТ XRAY3 
0608- FO 08 3050 BEQ MOVDWN2 | | 
060А- 88 3060 DEY 
060B- 99 35 01 3070 STA CRT,Y 
060Е- C8 3080 INY 0010 ; 
060Е- C8 3090 INY | | 0020 ;%**k*kkkkkkkkkkkkkkkkKkkkkkkkkkkkkkkkkkkkk 
0610- 50 ЕЗ 3100 BVC MOVDWNI 0030 ;** KK 
0612- 88 3110 MOVDWN2 DEY 0040 ;** EXTENDED ENHANCEMENTS (XRAE) ak 
0613- 99 35 01 3120 STA CRT,Y 0050 ;** FOR SYNERTEK ASM/TED 1.0 ** 
0616- 68 3130 PLA ;RESTORE Y | 0060 ;** m 
0617- A8 3140 TAY 0070 ;** COPYRIGHT (C) 1982 ** 
0618- 88 3150 DEY 0080 ;** SATURN SOFTWARE LIMITED ** 
0619- 20 86 05 3160 JSR UPDATE 0090 ;** ** 
061C- C6 9F 3170 DEC *YMAX | 0100 ;** DISK FILE XRAY3 ** 
061E- 60 3180 RTS | 0110 ;** FEBRUARY 17,1982 ** 
3190 ; 0120 ;** жж 
061Е- AE IF 01 3200 DELCHR LDX PRINT/CTL ;ECHO BACK SL 0130 ;**w*k*wkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkK 
0622- FO 05 3210 BEQ DELCHRI 0140 ; 
0624- A9 5C 3220 LDA fBKSL | | 0150 ; THIS IS THE START OF THE NEW COMMAND PROCESSOR 
0626- 20 OF 02 3230 JSR TTYOUT 0160 ; 
0629- AE 17 02 3240 DELCHR1 LDX KTMFLG 0669- 20 CA E3 0170 CMD.PR JSR CRLF ;DO CRLF 
062C- DO 05 3250 BNE DELCR 066C- AD 15 01 0180 LDA AUTO ;CHECK AUTO FLAG 
062Е- A9 5C 3260 LDA #BKSL | | 066Е- DO 37 0190 BNE NOCM ; INSERT IF SET 
0630- 4C OC 02 3270 JMP TOUT 0671- A5 B2 0200 LDA *APP 
0633- 20 3B 06 3280 DELCR JSR BCKSPC 0673- FO 07 0210 BEQ NXCO 
0636- A9 20 3290 LDA #SPC 0675- А5 9Е 0220 LDA *UPDFLG 
0638- 20 0С 02 3300 JSR TOUT | | 0677- DO 2F 0230 BNE NOCM ;INSERT IF SET 
063B- A9 08 3310 BCKSPC LDA #BS 0679- 4C C3 03 0240 JMP PRMT.OT 
063D- 4C 0C 02 3320 JMP TOUT 067C- A2 00 0250 NXCO LDX #$00 
3330 ; 067E- AO 00 0260 NXC LDY #$00 ;START OF LINE 
3340 ;ECHO CRLF TO PRINTER IF PRINT/CTL IS SET 0680- 20 02 B5 0270 JSR PAS.SPCS ;SKIP SPACES 
3350 ; 0683- CO 50 0280 CPY #$50 ;LINE EMPTY ? 
0640- AE 1F 01 3360 CRLFP LDX PRINT/CTL :IF PRINTER OFF 0685- BO 21 0290 BCS NOCM ;YES 
0643- FO OC 3370 BEQ CRLFPI ; THEN RETURN 0687- BD BD 06 0300 LDA CMD,X ; TEST AGAINST 
0645- 48 3380 PHA ;SAVE R(A) ON STACK 068A- FO 1C 0310 BEQ NOCM ;COMMAND TABLE 
0646- A9 OD 3390 LDA #$0D ;ECHO CARRIAGE RETURN | | 068C- DI 35 01 0320 CMP CRT,Y 
0648- 20 OF 02 3400 JSR TTYOUT 068Е- FO 07 0330 BEQ NXTLT 
064B- А9 OA 3410 LDA %50А ;ECHO LINE FEED 0691- 09 20 0340 ORA %520 
064D- 20 OF 02 3420 JSR TTYOUT 0693- D9 35 01 0350 CMP СЕТ,Ү 
0650- 68 3830 PLA ;RESTORE R(A) | | 0696- DO 0A 0360 BNE NXT.D 
0651- 60 3440 CRLFPI RTS 0698- B9 36 01 0370 NXTLT LDA CRT+1,Y 
3450 ; 069B- 29 DF 0380 AND #$DF 
3460 ;SUBROUTINE TO CLEAR INPUT BUFFER TO NULLS 069D- DD BE 06 0390 CMP CMD+1,x 


06А0- 
06A2- 
06A3- 
06А4- 
06А5- 
06А6- 
06А8- 
06АА- 
06АВ- 
06АЕ- 
06B1- 
06B4- 
0687- 
O6BA- 


068D- 
06ВЕ- 
06C1- 
06C3- 
06C5- 
06C7- 
06C9- 
06СВ- 
06CD- 
06СЕ- 
0601- 
06D3- 
06D5- 
06D7- 
06D9- 
06DB- 
06DD- 
06DF- 


06E1- 
06E4- 
06E5- 
06E8- 
06Е9- 
06ЕС- 
06Ер- 


06ЕЕ- 
06Е0- 


06Е3- 
06Е6- 
06Е8- 
O6FA- 
06ЕС- 
06ЕЕ- 
0700- 
0703- 
0706- 


09 


00 


4E 


00 


00 


B2 
B2 


0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 


NXT.D 


NOCM 


FOUD 


; 
;COMMAND TABLE 


> 
CMD 


0750 ; 
; LEAVE ROOM FOR THREE MORE COMMANDS 


0760 
0770 
0780 


0790 
0800 
0810 
0820 


0830 
0840 


0850 ; 


0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 


. 
> 


EDITI 


.BY 
.5І 
„Ву 
„SI 
.BY 
„SI 
.BY 
-5І 
«ВҮ 
.SI 
.BY 
-SI 
„Ву 
51 
„Ву 
«SI 
«BY 
-SI 


.BY 
„Ву 


.BY 


BCS 
LDX 
JSR 
JSR 
BEQ 
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FOUD 
;NEXT COMMAND 
NXC 
#500 ;CAN'T FIND 
;LET RAE PROCESS 
CMD-2,X СЕТ ROUTINE ADDRESS 
SCRATO 
CMD+3,X 
SCRATO+1 
NXT.FLD ;SKIP TO NEXT FIELD 
(ЗСВАТО) ;EXECUTE COMMAND 
‘ED! ;EDIT 
EDIT 
‘AD! ; ADDRESS 
ADR 
ТАР"! ; APPEND 
APPEND 
‘EX! ; EXECUTE 
EXEC 
‘FL! ;FILE 
FILE 
"ТА" ;TAPE SPEED 
TAPE 
180" ;HYPERSORT 
SORT 
'SA' ;SAVE 
SAVE 
"ВЕ" ;RESTORE FILE 
RESTORE 


$00 $00 $00 $00 

$00 $00 S00 $00 

$00 $00 $00 $00 

$00 ;END OF TABLE 

#SED ;ERROR IN COMMAND 
ERROO 

CRT,Y ;TEST FOR LINE # 
#$30 

NOCM ;NO 

#$3A 

NOCM ;NO-LET RAE PROCESS 
%508 

ASC. SP>DEC СЕТ LINE / 
SET.F2 ;СЕТ LINE ADDRESS 
TOLAR ;NOT IN FILE 


0708- 
070A- 
070D- 
070Е- 
0712- 
0715- 
0718- 
071В- 
071D- 
071Е- 
0721- 
0724- 
0725- 
0726- 
0728- 
072А- 
072D- 
072F- 
0731- 
0732- 
0733- 
0734- 
0735- 
0736- 
0738- 
073A- 
073C- 
073F- 
0742- 
0745- 
0748- 
074B- 
074C- 
074E- 
0750- 
0752- 
0755- 
0756- 


0759- 
075B- 
075D- 


0760- 
0761- 
0762- 
0763- 
0764- 
0765- 
0767- 
076A- 
0768- 
076С- 
076Е- 
0770- 
0773- 
0774- 


01 


01 


03 


05 


03 


01 


01 


0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1131 
1132 
1133 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


1340 ; 


1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


1490 ; 


NEW.CR 


ENDLN 


DO. NUM 


; 
TOLAR 


> 
NUM. BUF 


> 


PAGE 29 


TOLAR 
ZERBUF 
%500 
FIRST+1 
NUM. BUF 
FIRST 
NUM. BUF 
#$02 
(SCRATO) ,Y ;MOVE LINE 
ENDLN ;TO BUFFER 

CRT ,X 


ЖО IN FILE 
;CLEAR BUFFER 


;PUT LINE # INTO 
;BUFFER 


NEW.CR 
#$7F 
CRT ,X 
#504 
* LEN 


;PROTECT LINE # 


*YMAX 
#500 
*UPDF LG 
AUTO 
INCBY 
INCBY+1 
CRT,Y 
ECHAR. VEC 


;CLEAR AUTO MODE 


*LEN 

DO. NUM 
#'] 

ECHAR. VEC 
CTROLZ1 ;START TO EDIT 
#500 
ЖАРР 
РЕМТ.0Т 


;CLEAR SCROLLING 
; IGNORE COMMAND 


;INSERT LINE # 
;INTO BUFFER 


> > > > 


#$30 
CRT ,X 


#SOF 
#530 
CRT,X 
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0775- A2 08 1500 ADR LDX %508 07F2- 85 B2 2060 STA *APP 
0777- 20 E6 B2 1510 JSR ASC.SP>DEC СЕТ LINE # 07F4- áC E2 03 2070 JMP FILBUF ; INPUT FROM KEYBOARD 
077A- A9 FF 1520 LDA #5ЕЕ | 07F7- 20 21 08 2080 DOWN JSR FIL.BOT ;ТЕ5Т BOTTOM OF FILE 
077C- 8D OB Ol 1530 STA LAST+1 | | 07FA- FO F4 2090 BEQ END.FIL ;YES 
077F- 20 14 B2 1540 JSR SET.F2 ;СЕТ LINE ADDRESS 07FC- A9 02 2100 LDA #$02 
0782- FO 0С 1550 BEQ NOFUD ;NOT THERE O7FE- 85 Bl 2110 STA *LEN 
0784- BO OA 1560 BCS NOFUD ;NOT THERE 0800- 38 2120 SUBL SEC 
0786- А5 DE 1570 LDA *SCRATO+1 ;PRINT ADDRESS | | 0801- A5 DD 2130 LDA *SCRATO 
0788- 20 E2 E3 1580 JSR OUT.BYT 0803- E5 Bl 2140 SBC *LEN ;NEXT CHAR DOWN 
078B- A5 DD 1590 LDA *SCRATO | 0805- 85 DD 2150 STA *SCRATO 
078D- 20 E2 E3 1600 JSR OUT.BYT 0807- BO 02 2160 BCS TSTL 
0790- 20 CA E3 1610 NOFUD JSR CRLF 0809- C6 DE 2170 DEC *SCRATO+1 
0793- 4C C3 03 1620 JMP PRMT.OT 080B- А9 01 2180 TSTL LDA #$01 

1630 ; 0800- 85 В1 2190 STA *LEN 
0796- А9 01 1640 APPEND LDA #501 ;SET APPEND FLAG 080Е- AO 01 2200 LDY #501 
0798- 85 B2 1650 STA *APP 0811- 20 21 08 2210 JSR FIL.BOT ;START OF FILE ? 
079А- 85 B3 1660 STA *DIREC ;DIRECTION IS UP | | 0814- FO C4 2220 BEQ МЕХТІ ;YES 
079C- B9 35 01 1670 LDA CRT,Y ;TEST FOR LINE # 0816- AO 00 2230 ІҮ #$00 
079F- C9 30 1680 CMP #$30 0818- В1 DD 2240 LDA (SCRATO),Y ;START OF LINE ? 
07А1- 90 07 1690 ВСС APERR ;NO 081A- C9 AO 2250 CMP #$A0 
07A3- C9 3A 1700 СМР #$3A | | 081С- 90 E2 2260 BCC SUBL ;NO 
07A5- BO 03 1710 BCS APERR ; NO 081Е- 4C D4 07 2270 JMP NEXT ;EDIT LINE 
07A7- 4C FE 06 1720 JMP EDITI ;EDIT LINE 2280 ; 
07AA- A9 00 1730 APERR LDA #500 | 0821- A5 DE 2290 FIL.BOT LDA *SCRATO+1 ;TEST FOR START 
O7AC- 85 B2 1731 STA *APP | | 0823- CD 01 01 2300 CMP TXST+1 ;0Е FILE 
07АЕ- 4C ЕЕ 06 1732 JMP EDERR 0826- DO 05 2310 BNE LARG 

1740 ; 0828- А5 DD 2320 LDA *SCRATO 
07B1- 20 52 06 1750 PART2 JSR ZERBUF  ;CLEAR BUFFER 082A- CD 00 01 2330 CMP TXST 
07B4- AD 15 Ol 1760 LDA AUTO ;TEST FOR AUTO MODE 082D- 60 2340 LARG RTS 
07B7- FO 03 1770 BEQ PART3 ;NO 2350 ; 
07B9- 4C E2 03 1780 JMP FILBUF ;СОМТІМЏЕ IN AUTO MODE 082E- 20 76 08 2360 EXEC JSR GET.N ;GET ADDRESS 
07BC- A5 B3 1790 PART3 LDA *DIREC 0831- A9 Ol 2370 LDA #$01 ;SET EXECUTE FLAG 
07BE- FO 37 1800 BEQ DOWN ; DOWN | 0833- 85 B4 2380 STA *EXFLG 
07С0- А0 00 1810 LDY %500 | | 0835- 85 B5 2390 STA *NUMFLG 
07C2- A5 9E 1820 LDA *UPDFLG | 0837- А5 01 2400 LDA *PROC>ADDRS БЕТ START OF FILE 
07C4- FO 06 1830 BEQ АКОТ 0839- 85 FA 2410 STA *EXPTR 
07C6- B1 DD 1840 ANO LDA (SCRATO),Y 083B- A5 D2 2420 LDA *PROC>ADDRS+1 
07C8- C9 AO 1850 CMP #5А0 ;TEST END OF LINE | | 083D- 85 FB 2430 STA *EXPTR+1 
07СА- BO 08 1860 BCS NEXT ;YES 083F- 4C C3 03 2440 JMP PRMT.OT ;FETCH CHARACTERS 
07CC- E6 DD 1870 ANO1 INC *SCRATO ;МЕХТ CHAR 2450 ; 
07CE- DO F6 1880 BNE ANO 3 0842- 84 C7 2460 EXECT STY *SAVEYY 
07D0- Е6 DE 1890 INC *SCRATO+1 | | | 0844- А5 B5 2470 LDA *NUMFLG ;LINE # TO SKIP ? 
07D2- DO F2 1900 BNE ANO 0846- FO 12 2480 BEQ NOSKP ;NO 
0704- AO 02 1910 NEXT LDY #$02 ;LINE # INTO 0848- 18 2490 CLC 
0706- А9 00 1920 LDA #$00 0849- А5 FA 2500 LDA *EXPTR ;5КІР LINE # 
0708- 85 9Е 1930 STA *UPDFLG 084В- 69 02 2510 ADC #$02 
07DA- A2 00 1940 NEXT1 LDX %500 ;BUFFER 084D- 85 FA 2520 STA *EXPTR 
07DC- ВІ DD 1950 LDA (SCRATO),Y 084Е- 90 02 2530 BCC GETCR 
070Е- 20 60 07 1960 JSR NUM.BUF ;HIGH BYTE 0851- E6 FB 2540 INC *EXPTR+1 
07E1- 88 1970 DEY | 0853- А9 00 2550 СЕТСЕ LDA 4500 ;CLEAR FLAG 
07E2- Bl DD 1980 LDA (SCRATO),Y | | 0855- 85 B5 2560 STA *NUMFLG 
07E4- 20 60 07 1990 JSR NUM.BUF ;LOW BYTE 0857- A9 OD 2570 LDA #500 ;END OF LINE 
07E7- C8 2000 INY ;5ТАЕТ OF TEXT 0859- 60 2580 RTS 
07E8- -C8 2010 INY 085A- AO 00 2590 NOSKP LDY #$00 
07E9- Bl DD 2020 LDA (SCRATO),Y ;TEST END OF FILE | | 085C- B1 FA 2600 LDA (EXPTR),Y ;GET NEXT CHAR 
O7EB- FO 03 2030 BEQ END.FIL ;ҮЕ5 085E- FO OF 2610 BEQ FINEX ;END OF FILE 
07Ер- 4C 1D 07 2040 JMP NEW.CR ;EDIT LINE 0860- 10 02 2620 BPL NOED ;NOT END OF LINE 
07F0- A9 00 2050 END.FIL LDA #$00 ;STOP SCROLLING 0862- E6 В5 2630 INC *NUMFLG ;5ЕТ FLAG 
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0864- 29 7F 2640 NOED AND #$7F 08DA- C9 31 3220 CMP #$31 ў 1:7 
0866- E6 FA 2650 INC *EXPTR ;МЕХТ CHAR POINTER ие FO 07 3230 BEQ SPDI ;YES 
0868- DO 02 2660 BNE RTSE 08DE- C9 32 3240 CMP #$32 27 
086А- Е6 ЕВ 2670 INC *EXPTR+1 | | 08Е0- FO 15 3250 ВЕ0 SPD2 ;YES 
086C- A4 C7 2680 RTSE LDY *SAVEYY OBE2- 4C EE 06 3260 TERR JMP EDERR 
O86E- 60 2690 RTS 08Е5- A9 46 3270 SPD1 LDA #546 ;SET TO SYM x 1 SPEED 
086Е- A9 00 2700 FINEX LDA 4500 ;CLEAR EXECUTE FLAG 9957- A2 33 3280 LDX #$33 
0871- 85 B4 2710 STA *EXFLG | | O8E9- AO 5A 3290 LDY #$5A 
0873- 4C 06 02 2720 JMP NEW.HOT ;RESTART RAE 08ЕВ- 8D 32 А6 3300 STORE STA HSBDRY 
2730 ; OBEE- 8E 35 A6 3310 STX TAPETI 
0876- A2 00 2740 GET.N LDX #500 ;HEX MODE 08Е1- 8C ЗС А6 3320 STY TAPET2 
0878- CO 50 2750 CPY #950 ;END OF LINE ? 08Е4- 4C СЗ 03 3330 JMP PRMT.OT 
087A- BO 06 2760 BCS N.PAR ;YES 08F7- A9 23 3340 SPD2 LDA #$23 БЕТ TO SYM x 2 SPEED 
087C- 8E 11 01 2770 STX HEX/DEC O8F9- A2 19 3350 LDX #$19 
087F- 4C 4A E2 2780 JMP PR.LAB.S ;GET NUMBER O8FB- AO 2D 3360 LDY #$2D 
0882- 4C EE 06 2790 N.PAR JMP EDERR O8FD- DO EC 3370 BNE STORE 
2800 ; | | 3380 ; 
0885- AD 00 01 2810 RESTORE LDA TXST O8FF- A2 00 3390 SORT LDX %500 ;CLEAR EXCH FLAG 
0888- 85 D1 2820 STA *PROC>ADDRS 0901- AD 04 01 3400 LDA STST ;START AT BEGINNING 
088A- AD 01 01 2830 LDA TXST+1 0904- 85 FE 3410 STA *NXT.PTR 
088D- 85 D2 2840 STA *PROC>ADDRS+1 | | 0906- AD 05 01 3420 LDA STST+1 
088F- AO 02 2850 LDY %502 0909- 85 FF 3430 STA *NXT. PTR+1 
0891- ВІ D1 2860 LDA (PROC>ADDRS),Y 090B- А0 02 3440 LDY #$02 ;TEST FOR EMPTY 
0893- DO 1Е 2870 BNE NXTL1 090D- B1 FE 3450 LDA (NXT.PTR),Y 
0895- A9 AO 2880 LDA #$A0 | | 090Е- FO 1B 3460 BEQ SORT.EXIT ;YES 
0897- 91 D1 2890 STA (PROC>ADDRS) ,Y 0911- А5 FE 3470 NXT.LABEL LDA *NXT.PTR ;MAKE NEXT LABEL 
0899- DO 19 2900 BNE NXTL1 0913- 85 ЕС 3480 STA *CURNT ;CURRENT LABEL 
2910; 0915- А5 FF 3490 LDA *NXT. PTR+1 
089B- 20 76 08 2920 FILE JSR GET.N | ;GET ADDRESS 0917- 85 FD 3500 STA *CURNT+1 
089E- А5 DI 2930 LDA *PROC>ADDRS БЕТ FILE START 0919- А0 01 3510 LDY #901 ;FIND NEXT LABEL 
08A0- 8D 00 01 2940 STA TXST 091B- C8 3520 FIND.NXT INY 
08A3- A5 D2 2950 LDA *PROC>ADDRS+1 091C- B1 FC 3530 LDA (CURNT),Y 
08A5- 8D Ol 01 2960 STA TXST+1 091Е- 10 FB 3540 BPL FIND.NXT 
O8A8- 4C ВА 08 2970 JMP feta | | 0920- 20 96 09 3550 JSR CALC. NXT ;CHECK FOR END OF FIL 
O8AB- 20 BE 08 2980 NXTL JSR IPADDS 0923- А0 02 3560 LDY #902 
08B1- 20 BE 08 3000 NXTL2 JSR IPADDS 0927- DO 07 3580 BNE СОМРАВЕ1 
08B4- AO 02 3010 NXTL1 LDY #$02 | | 0929- 8A 3590 TXA ;TEST FOR NEXT PASS 
08B6- Bl Dl 3020 LDA (PROC>ADDRS) ,Y 092А- DO D3 3600 BNE SORT ;ҮЕЅ 
0888- FO 08 3030 BEQ ENDFIL 092C- 4C C3 03 3610 SORT.EXIT JMP PRMT.OT 
08ВА- 30 EF 3040 BMI NXTL 092F- C8 3620 COMPARE INY ;COMPARE CURRENT LABEL 
OBBC- 10 F3 3050 BPL NXTL2 0930- B1 FC 3630 COMPARE] LDA (CURNT),Y ;WITH NEXT LABEL 
3060 ; | 0932- 51 FE 3640 EOR (NXT. PTR) ,Y ;AND EXCHANGE IF 
08ВЕ- E6 Dl 3070 IPADDS INC *PROC>ADDRS 0934—30 0A 3650 BMI END. LABEL ; NECESSARY 
08C2- E6 D2 3090 INC *PROC>ADDRS+1 | | vus" PAM | 36/10 CMP (CURNT),Y 
08с4- 60 3100 IPADDS1 RTS 993A= 90 ТА 3680 BCC EXCHANGE 
3110 ; 093C- DO D3 3690 BNE NXT. LABEL 
08С5- AS 1 3120 ENDFIL ^ LDA *PROC>ADDRS ;SET FILE END 950 PU NE 3700 BEQ COMPARE 
08C7- 85 D3 3130 STA *TPRES 0940- Bl FE 3710 END.LABEL LDA (NXT.PTR),Y ;END OF LABEL 
08С9- A5 D2 3140 LDA *PROC>ADDRS+1 | | 0942- 10 ОА 3720 BPL END.CURNT 
08СВ- 85 D4 3150 STA *TPRES+1 0944- 29 7Е 3730 AND #S7F ЕКО ОЕ КЕХТ ТАВЕТ, 
OBCD- 4C AE BO 3160 JMP RAE.WARM ;OUTPUT FILE INFO 0946- DL FC 3740 CMP (CURNT) ,¥ 
3170 ; 0948- FO 0С 3750 BEQ EXCHANGE 
08D0- CO 50 3180 TAPE CPY #$50 ;NO PARAMETERS ? | | 095A- 90 0A 3760 BCC EXCHANGE 
08D2- BO OE 3190 BCS TERR ;YES | 094с- BO C3 3770 BCS NXT.LABEL 
0804- 20 86 8B 3200 JSR ACCESS 094E- 09 80 3780 END.CURNT ОВА #$80 ;END OF CURRENT LABEL 
0807- B9 35 01 3210 LDA CRT,Y 0950- D1 FC 3790 CMP (CURNT),Y 


09 


09 


8B 
08 


A6 
BS 
08 


A6 
А6 


B5 
08 


3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 


EXCHANGE 


CLI 


CL2 


CL3 


NXT. LAB 
CALC. NXT 


H 
SAVE 
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NXT.LABEL 
NXT. LABEL 
%500 

(CURNT) ,Y 
(PUREC) ,Y 


(CURNT),Y 
(PUREC) , Y 


(CURNT) ,Y 
(PUREC) ,Y 
CL1 

#500 

(NXT. PTR) ,Y 
(CURNT),Y 


(NXT. PTR),Y 
(CURNT),Y 


(NXT. PTR) ,Y 
(CURNT) ,Y 
CL2 

CALC. NXT 
%500 
(PUREC) , Y 
(NXT. PTR) ,Y 


(PUREC) ,Y 
(NXT. PTR) ,Y 


(PUREC) ,Y 
(NXT. PTR) ,Y 
CL3 
;SET EXCH FLAG 
NXT.LAB 


NXT.LABEL 
;CALCULATE VALUE OF 


;NEXT POINTER FROM VALUE 
;ОЕ CURRENT POINTER 
;AND Y 


*CURNT 
*NXT. PTR 
*CURNT+1 
#500 
*NXT. PTR+1 


ACCESS 
GET.N ;GET ID 
*PROC>ADDRS 


GET.N СЕТ ADDRI 
*PROC>ADDRS 

SAL 

*PROC DADDRS+1 

SAH 

PAS.SPCS 


GET.N ;GET ADDR2 


;EXCHANGE LABELS 


| 


09C4- 
09С6- 
09С9- 
09CB- 
09СЕ- 
0900- 
0903- 
0905- 
0908- 


O9DB- 
09DE- 
09Е1- 
09Е4- 
09Е7- 
09ЕА- 
09Е0- 
09F0- 
09F3- 
09Е6- 
09Е9- 
09ЕС- 
09Ер- 
0А00- 
0А01- 
0A04- 
0A07- 
0A0A- 
OAOD- 
0А10- 
0А13- 
0А16- 
0A19- 
ОА1С- 
0А1Е- 
0A22- 
0A25- 
0A27- 
0A2A- 


A6 


4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 


4480 TEXT 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 


> 
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LDA *PROC>ADDRS 
STA EAL 

LDA *PROC>ADDRS+1 
STA EAH 

LDA #$04 
STA TAPDEL 
LDY #$80 
JSR DUMPT 
JMP PRMT.OT 


.BY 'X-RAY 2.0 BY J. 


.BY $0D $0A $0A $0A 


;SET DELAY 


;WRITE TO TAPE 


BROWN & R. 


DEANE' 


.BY 'COPYRIGHT 1982 SATURN SOFTWARE LIMI! 


.BY $0D $0A $0A $00 


„СТ XRAY4 


EXTENDED ENHANCEMENTS (XRAE) 
FOR SYNERTEK ASM/TED 1.0 


COPYRIGHT (C) 1982 
SATURN SOFTWARE LIMITED 


DISK FILE XRAY4 
FEBRUARY 17, 1982 


skkkžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


** 


0130 5 k k k k k k k k k k k k dee dee ee ХХХ 


0140 


0А28- 
0А2С- 
0А2Е- 
0A31- 
0A33- 


0A36- 


0A39- 


0АЗС- 


ОАЗЕ- 
0A42- 
0A44— 
0A47- 


0A4A- 
0А4С- 
OA4E- 
0A50- 


0A52- 
0А54- 


4C 


4C 


4C 


20 
A9 
8D 
4C 


A2 
A9 
86 
85 


A2 
A9 


03 01 


BO 
03 
с2 


8F 


4A 


65 
OA 
FO 
Fl 


98 
OA 


04 


OA 


0A 


0B 


E3 
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; 9C.CHK is entered whenever a BRK instruction occurs. 
; If the break was due to a CTRL-C in RAE we exit to 
; SUPERMON, otherwise it must have come from FODS, so 
; we stay in RAE. 
9C.CHK TSX 
LDA $103,X ;GET PC,HIGH 
CMP %5В0 ;BRK FROM RAE? 
BNE 9C.CHKl ; МО, SO STAY IN RAE 
JMP CTROLS+4 ;EXIT TO MONITOR 
IFE FODS 
©C.CHKI JMP CTROLS+S0A 
ЖЖЖ 
IFE FODS-1 
9C.CHK1 JMP EN4 
kkk 
М SET DISK VECTORS, TAPE VERSION VECTORS THROUGH 
; HERE BUT DOES NOTHING. 
А IFE FODS 
DSK. SET RTS 
NOP 
NOP 
kkk 
IFE FODS-1 
DSK. SET JMP SET.EM 
kkk 
; 
; THIS IS THE COMMON .CT PATCH VECTOR 
IFE FODS 
CON. DSK JMP TAPE.DD 
kkk 
IFE FODS-1 
CON. DSK JMP СОМ. DSK1 
kkk 
; 
TAPE. DD JSR ТАРЕ1.0М ;TURN TAPE BACK ОМ 
LDA #0 
STA FILE.NO 
JMP TLOAD 
я THIS ROUTINE SETS RAE'S ENter LOad and DCommand VECTORS 
; 
IFE FODS-1 
; 
SET.EM LDX #L,ENTER 
LDA #H,ENTER 
STX *DISCI 
STA *DISC1+1 
; 
LDX #L, LOAD 
LDA #H, LOAD 


0465- 
0A67- 
0A69- 
0A6B- 


OA6E- 
0A70- 


0A72- 
0A75- 
0A77- 
0A7A- 
0А7В- 
0A7D- 
0A80- 
0А83- 
0A85- 
0A88- 
0A89- 
0А8С- 


ОАВЕ- 
0A92- 
0A95- 


F2 
F3 


ED 
0A 
EC 
ED 


4F 


0A98- CO 50 


OB 


BO 


OB 


72 


0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 


0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


150 


1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
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*DISC2 
*DISC2+1 


“ 


RST.DSK 


#L,DISK.CMD 
#H, DISK. CMD 
*DISCC. VEC 

*DISCC.VEC+1 


; RESET DRIVES 


> 

; START OF DISK INTERFACE 

0810 ; 

; ENTER is the entry point on an ENTER command. 
; disk files are prefaced with an ":". 


All RA 
An error code o 


; 30 means no filename was supplied. 


ENTER CPY #$50 ИЕ Y=50 FILENAME IS MISSING 
BNE ЕМІ ;Y POINTS AT FILENAME 
LDX #$30 ;ERR 30-NO FILENAME 
JMP (ERROR) ;PRINT ERROR MESSAGE 
ЕМІ LDX #0 
STX *DISCO ;RE-ENABLE TAPE OUTPUT 
ENT $s.adr$e.adr=:name 


; Build command string: 
; Put it in FODS buffer 


and let FODS do the work 


EN2 LDA SAVE.D,X ;GET NEXT CMD CHARACTER 

BEQ EN3 ;ARE WE DONE? 

STA TXBUF,X ;МОУЕ TO FODS BUFFER 

INX 

BNE EN2 
EN3 JSR DRIVE? ;CHECK FOR DRIVE# 

JSR RAE.STR ;TELL FODS WHERE FILE STARTS 

LDA #'$ 

STA TXBUF,X 

INX 

JSR RAE.END ;TELL FODS WHERE FILE ENDS 

JSR NAM.CMD ;GO PUT NAME IN AND DO CMD 
EN4 JSR RST.DSK 

JSR RAE.I/O 

JMP RAE.HOT ;AND GO BACK TO RAE 
; LOAD is the entry point on a LOAD command. The file 
; specified is down-loaded into the current text file. 
; If the file exceeds the current text file boundary an 
; error 31 results. The entire file has been brought 
; in, but the upper limit should be set to accommodate 
; the whole file before preceding. If the filename is 
; preceded with a "+" the file will be appended to the 
; current file. If no filename is specified, an error 
; 30 results. 
LOAD CPY #$50 
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0A9A- DO 05 1270 BNE 101 ;Y POINTS AT FILENAME OAF8- B9 35 O1 1850 DC2 LDA CRT,Y ;GET NEXT CMD CHARACTER 
0А9С- A2 30 1280 LDX #$30 ;ERR 30-NO FILENAME OAFB- 9D 80 72 1860 STA TXBUF,X ;PUT ІТ IN FODS BUFFER 
OA9E- 6C OE BO 1290 JMP (ERROR) ;PRINT ERROR MESSAGE OAFE- E8 1870 INX 
1300 | | OAFF- C8 1880 INY 
ОАА1- 20 BD OA iR 101 JSR DSK.LOD ;BRING IN FILE 0B00- C9 20 1890 СМР #920 ;IS IT A BLANK? 
1 0BO2- DO F4 1900 BNE DC2 ;NO, KEEP GOING 
0АА4- CD 03 01 1330 CMP TXEN+1 ;ТЕ5Т FOR 0804- B9 35 01 1910 LDA СЕТ,Ү СЕТ CHARACTER AFTER SPACE 
0AA7- 90 E6 1340 BCC EN4 ;TEXT FILE | | 0B07- C9 20 1920 CMP #$20 ;ANOTHER ONE? 
0AA9- DO 07 1350 BNE LO6 ;OVERFLOW — 0В09- DO ED 1930 BNE DC2 ;NOPE, STILL MORE 
OAAB- AD 02 Ol 1360 LDA TXEN ;HIGH BYTES EQUAL, OBOB- A9 OD 1940 LDA #$D “PUT IN THE «CR» 
OAAE- C5 D3 1370 Е a Қалым OBOD- 9D 7F 72 1950 STA TXBUF-1,X 
OABO- BO DD 1380 s STOW BY 0B10- 20 11 03 1960 JSR MON.I/O 
1390 0B13- 20 B3 79 1970 JSR CMDINT (ЕТ FODS DEAL WITH IT 
des. a i Ds и 106 => ae 0816- 4C 8F ОА 1980 DC3 JMP ЕМА ;GO FINISH UP 
ОАВ8- A2 31 1420 LDX #$31 ;ERR 31-OVERFLOW OF THE 4 
ОАВА- 66 GE. BO Wwe JMP (ERROR) ;TEXT FILE ON DISK LOAD | | 0819- 20 18 ЕЗ 2010 CON.DSKl JSR TAPE1.OFF 
ден ОВ1С- AD 14 01 2020 LDA CON. ТАРЕ 
; ОВ1Е- C9 OF 2030 CMP #$Е 
1460 ; Build command string: LOD $s.adr=:name я y 
1470 ; Put it in FODS buffer and let FODS do the work | | | 0821- 90 1C pen BNE TAPE.D ;REALLY A TAPE CALL 
1480 
OABD- BD AD OB 1490 DSK.LOD LDA LOD,X | ;GET NEXT CMD CHARACTER 0823- AD 25: OL 2060 LDA TSIAWT+1 
OACO- FO 06 1500 BEQ 103 ;ARE WE DONE? or oai пеш e t я 
OAC2- 9D 80 72 1510 STA TXBUF,X ;МОҮЕ ТО FODS BUFFER "EE a M Pec ' SIGNORE. 2ND ‘CALL 
cile PAA pha | OB2A- 20 88 81 2090 JSR SAVER 
0АС6- DO FS 1530 BNE DSK.LOD 052D- А0 OF 2100 LDY SF 
ОАС8- 20 ВЗ OB 1540 103 JSR DRIVE? ;СНЕСК FOR DRIVE# UP. B9 35 01 2110 RE ИТКЕ 
OACB- B9 35 01 1550 LDA CRT,Y — ;GET 1ST CHARACTER IN NAME STRING | 0B32- C9 3B 2120 CMP f; 
OACE- C9 2B 1560 СМР #'+ ZIS ІТ TO BE APPENDED? | 0834- FO 09 2130 BEQ TAPE.D ІЛМЕ COMMENT - IGNORE IT 
OADO- DO 06 1570 BNE 104 ;IF NOT, SKIP | 0836- С9 20 2140 СМР 4320 
ОАр2- C8 1580 INY ;BYPASS THE "+" 0838- DO 08 2150 BNE NAM.FND ;WE FOUND A FILE NAME 
OAD3- 20 9C OB 1590 JSR RAE.END ;TELL FODS WHERE ATTACH POINT IS 0B3A- C8 2160 INY 
OAD6- DO 03 1600 BNE LOS й | 0B3B- CO 50 2170 CPY #$50 
OAD8- 20 8F OB 1610 LO4 JSR RAE.STR ;TELL FODS WHERE TO BEGIN FILE | 0B3D- DO FO 2180 BNE NAM.CHK 
OADB- 20 6D OB 1620 LOS JSR NAM.CMD ;GO PUT IN NAME AND DO CMD OB3F- 4C ЗЕ OA 2190 TAPE.D JMP TAPE.DD 
1630 2200 
1640 ; Set EOT pointer and test for overflow 2210 
1650 | | 0В42- 20 BD OA 2220 NAM.FND JSR DSK. LOD 
OADE- A9 00 1660 LDA #0 0B45- 20 2E 03 2230 JSR RAE.I/O 
OAEO- А0 02 1670 LDY #2 0848- 20 4F OB 2240 CT.OUT JSR RST.DSK 
ОАЕ2- 91 АВ 1680 STA (EOT),Y ;FLAG EOT FOR RAE OB4B- 18 2250 CLC 
ОАЕ4- А5 AB 1690 LDA *EOT ;TELL RAE OB4C- 4C 80 EF 2260 JMP TAPE.FIN 
OAE6- 85 D3 1700 STA *TPRES ;WHERE THE 2270 
OAE8- A5 A9 1710 LDA *ЕОТ+1  ;END OF THE 2280 
OAEA- 85 D4 1720 STA *TPRES+1 ;FILE IS 2290 
OAEC- 60 1730 RTS 2300 ; RESET DRIVES OFF AND DEFAULT TO DRIVE 2 
1740 I 2310 
1750 в ОВ4Е- A9 20 2320 RST.DSK LDA #$20 ;DRIVES OFF CODE 
1760 ; DISK.CMD is the entry point on a DC command. If no 0B51- 20 5D 76 2330 JSR DSKRW ;GO TURN "ЕМ OFF 
1770 ; command string is supplied an error 32 results. 0B54- 20 34 76 2340 JSR SET2 ;DEFAULT IS DRIVE 2 
OAED- CO 50 ie ISK.CMD СРҮ 4550 | ее 3350 = 
- DISK. 2360 
ОАЕЕ- DO 05 1800 BNE DCl ;Y POINTS AT COMMAND STRING 2370 
OAF1- А2 32 1810 LDX #$32 ;ERR 32=NO COMMAND STRING 2380 ; CONVERT A TO 2 HEX DIGITS & PUT 'EM IN TXBUF 
OAF3- 6C OE BO 1820 JMP (ERROR) ;PRINT ERROR MESSAGE | | 2390 
1830 
0B58- 48 2400 HEX.ASC PHA 
OAF6- A2 00 1840 DCl LDX #0 0859- 4A 2410 LSR A 
OBSA- ДА 2420 LSR A 


0В5В- 
085C- 
0B5D- 
0B60- 
0B63- 
0864- 
0B65- 
0B68- 
OB6B- 
086С- 


OB6D- 
0В6Е- 
0B72- 
0B73- 
0B75- 
0B78- 
0B7B- 
0B7C- 
0B7D- 
0880- 
0882- 
0B84- 
0B86- 
0889- 
088С- 


OB8F- 
OB 92- 
0895- 
0898- 
0B9B- 


OB9C- 
OB9E- 
ОВА1- 
ОВАЗ- 
ОВА6- 


ОВА7- 
ОВАА- 
OBAD- 
0ВВ0- 


0ВВ3- 
0ВВ6- 
0BB8- 
OBBA- 
OBBC- 


09 
80 


01 


58 


83 
72 


; PUT NAME 


NAM. CMD 


MOV. NAM 
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A 
A 
NIBASC 
TXBUF,X 


NIBASC 
TXBUF,X 


IN FODS BUFFER & PASS COMMAND TO FODS 


Б- 
TXBUF,X 


fr: 
TXBUF,X 
CRT,Y 


TXBUF,X 
#920 
MOV. NAM 
#SD 
TXBUF,X 
MON. 1/0 
CMDINT 


;ALL RAE FILES BEGIN WITH ":" 


;MOVE FILENAME INTO FODS BUFFEE 


;PUT IN A «CR» 


;AND LET FODS FIGURE IT OUT 


; TELL FODS WHERE RAE TEXT AREA BEGINS 


RAE.STR 


LDA 
JSR 
LDA 
JSR 
RTS 


TXST+1 
HEX. ASC 
TXST 
HEX. ASC 


;CONVERT RAE 

; START ADDRESS 

;TO ASCII 

;AND PUT IN FODS BUFFER 


; TELL FODS WHERE RAE TEXT AREA ENDS 


RAE.END 


; 
SAVE.D 


LOD 


; 
DRIVE? 


BEQ 
CMP 
BEQ 


*TPRES+1 ;CONVERT RAE 
HEX.ASC ;END ADDRESS 

*TPRES ;TO ASCII 

HEX.ASC  ;AND PUT ІМ FODS BUFFER 
"ENT $' 500 

"100 5" $00 

CRT,Y — ;DRIVE£ ? 

4531 $17 

DRIV ;YES 

#$32 2? 

DRIV ;YES 
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OBBE- 60 2990 NODRIV RTS 
OBBF- B9 36 01 3000 DRIV LDA CRT+1,Y 
OBC2- C9 20 3010 CMP #$20 
OBC4- DO F8 3020 BNE NODRIV 
OBC6- CA 3030 DEX 
0BC7- B9 35 O1 3040 LDA CRT,Y 
OBCA- 9D 80 72 3050 STA TXBUF,X 
OBCD- E8 3060 INX 
OBCE- A9 2F 3070 LDA #'/ 
OBDO- 9D 80 72 3080 STA TXBUF,X 
OBD3- E8 3090 INX 
0804- А9 24 3100 LDA #'$ 
OBD6- 9D 80 72 3110 STA TXBUF,X 
OBD9- E8 3120 INX 
OBDA~ 4C FF B4 3130 JMP NXT.FLD 
3140 kkk 
3150 ; 
3160 END. PGM .EN 
LABEL FILE: [ / = EXTERNAL ] 
/ ACCESS-8B86 / ADDPAD-011A 
/ APP-00B2 / ASC. SP» DEC-B2E6 
/ B. EEP-8972 / BEL-0007 
/BS=0008 /BUFFER=5F 00 
/CL.TXT=B096 / CMDINT=79B3 
/ CRLF-E3CA / СЕТ-0135 
/ CRTI-0080 / CRTO-0010 
/ CURNT-00FC / DEL=007F 
/DISC1-00F0 /DISC2=00F 2 
/DISCI=00EE / DISCI.VEC-00F6 
/DISPAT=814A /DSKRW=765D 
/ EAH-A64B / EAL-A64A 
/ EOT-00A8 /ERMSG=8171 
/ ERROR-BOOE / ERRORS-00DB 
/ EXFLG-00B4 / EXPTR-00FA 
/FIRST-0108 / FODBRK-7AFO0 
/ FORMAT-010F / GETCOM-80FF 
/ HSBDRY-A632 / ID=A64E 
/ INT. CHR-8A58 / INVEC-A660 
/ LEN-00B1 / LINE/ CNT-0120 
/MRK.END=E05F /NIBASC=8309 
/NXT.FLD=B4FF / NXT. PTR-00FE 
/ OUT . BYT-E3E2 / OUT VEC-A663 
/ PAS. SPCS-B502 /PASS=0113 
/PRINT/CTL=011F /PROC>ADDRS=00D1 
/ PUREC-00C8 / RAE. COLD-B04B 
/ RAE. WARM-BOAE /ВЕ5ХАЕ-8188 
/ SAH=A64D / SAL-A64C 
/ SAVEYY=00C7 / SCRATO-00DD 
/ SDBYT-A651 / SET.F2-B214 
/ SLABEL-4000 / SPACE-8342 
/ STEN=0106 / STEXT-0BDD 
/ SUP. OUT-00E3 /T.OUT=8AA0 
/ TAPE.F IN=EF 80 / TAPE 1. OFF=E 318 
/ ТАРЕТ 1=A635 / TAPET2-A63C 


;FOLLOWED BY A 
;SPACE ? 
;NO-NOT DRIVE# 


;ADD NUMBER 


;AND '/' 


;PLUS '$' 


;SKIP TO NAME 


/ ALT-005F 

/ AUTO-0115 

/ BKSL-005C 

/ CL. STAB-BF 37 
/ CON. TAPE-0114 
/ CRT. IN-B5BB 

/ CTROLYVEC-0000 
/ DIREC-00B3 
/DISCC. VEC-00EC 
/ DISCO-00EF 

/ DUMPT-8E87 

/ ELABEL-5EFD 
/ERROO=B44E 

/ ETEXT=3FFD 
/FLILE.NO=0110 
/FODS=0001 
/HEX/DEC=0111 
/ INCBY-010C 
/LAST=010A 
/MANU=010E 

/ NUMFLG-00B 5 

/ ORIGIN-0200 

/ PAGE/NUM-0121 
/ PR. LAB. S-E24A 
/ PRTVEC-00B6 

/ RAE. НОТ=В05Е 
/ RESXF-81BE 

/ SAVER-8188 

/ SCRATCH-00B0 
/ SET2=7634 

/ SPC-0020 

/ STST-0104 

/ TAPDEL-A630 

/ TAPE1. ON=E32A 
/ TECHO-A653 


/ TLOAD=EF 68 
/ TOPMEM=6000 
/ TSTART=0124 
/ TXBUF =7280 
/ UBRKVC-A676 
/ USRENT-8035 
/XMAX-009F 
ADR=0775 
APERR=07AA 
BCKSPC-063B 
BEEP11=0401 
CALC. NXT=0996 
CHK. STK=03A6 
CL3=0988 
COLD=0218 
CON. DSK=0A3C 
CRLFP1=0651 
CRTIN2=0373 
CT. OUT=0B48 
CTRLM=0479 
CTROLA=03F 6 
CTROLH=042F 
CTROLJ=044E 
CTROLP1=04B6 
CTROLT 1=04DE 
CTROLX1=0501 
CTROLZ=0520 
D. PARM=02B1 
DC1=OAF6 
DELCHR=061F 
DELETE=056A 
DO. NUM=0745 
DRIVE? =0BB3 
DUMA=0417 
ECHO=0551 
EDIT=06F3 
EEOF 1=05B2 
EN1-0A6E 
EN4-0AB8F 
END. LABEL=0940 
ENDLN-0728 
ESCAPE1=053D 
EXECT=0842 
FILE=089B 
FIX. STK=03BF 
GETCH=0357 
HEX. ASC=0B58 
INSERT 2=05D5 
INSERT 4=05FF 
IPADDS1-08C4 
KTM. I/0=02F9 
LO1-0AA1 

LO 5-0ADB 
LOD-0BAD 
MGETCH-034B 
MO VDWN-0603 
N. PAR=0882 
NAM. FND=0B42 
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/ TOGO-EC64 

/ TOUTFL-A654 
/ТТҮІ-0040 
/TXEN=0102 
/UPDFLG=009E 
/ VIADDB-A002 
ACCEPT-0579 . 
ANO=07C6 
APPEND=0796 
BEEP=0212 
BEEP2=0576 
CAS. INIT=026C 
CL1=0961 
CMD=06BD 
COMPARE=092F 
CON. DSK1=0B19 
CRTIN=0364 
CRTIN3=037B 
CTLM. L=0493 
CTRLU=0461 
CTROLA1=040E 
CTROLH1=043F 
CTROLM=0475 
CTROLS=04BE 
CTROLX=04E7 
CTROLY=050A 
CTROLZ1=0524 
D. PARM1=02B3 
DC2-0AF8 
DELCHR1=0629 
DISK. CMD=0AED 
DOWN=07F7 
DSK. LOD-0ABD 
ECHAR. VEC=03D7 
ECHO 1=055D 
EDIT1=06FE 
EEOF 2=05BC 
EN2=0A72 

END. CURNT=094E 
END. PGM=0B DD 
ENTER=0A65 
EXCHANGE=0956 
FIL.BOT=0821 
FIND.NXT-091B 
FOUD-06AB 
GETCH1=035E 
INSERT=05C7 
INSERT 20=05DD 
INTCHR=0209 
KBAUD=0216 
KTMFLG-0217 
103-0АС8 
LO6=0AB2 
MESSUB=065D 
MON. I/0=0311 
MOVDWN1=0605 
NAM. CHK=0B 2F 
NEW. COLD=0200 


/TOG1=EC59 

/ TPRES=00D3 
/ТТҮ0-0020 
/TXST=0100 
/USERVEC=0003 
/VIADRB=A000 
ACCEPT 1=057Е 
ANO1=07CC 
BCKSP=039A 
BEEP1=04A0 
BUSY=02E2 
CHAR. 20562 
CL2=0973 
CMD. PR=0669 
COMPARE 1=0930 
CRLFP=0640 
CRTIN1=036D 
CRTOUT=037C 
CTRLD=046B 
CTRM-0487 
CTROLC=041D 
CTROLI=0440 
CTROLP=04A6 
CTROLT=04CE 
CTROLX0-04F8 
CTROLY1=050E 
CTROLZ2=052F 
D. TAB=02D1 
DC3=0B 16 
DELCR=0633 
DO.BS=0389 
DRIV=OBBF 
DSK. SET=0A39 
ECHAR. VEC1=03DF 
EDERR=06EE 
EEOF=05AB 
EEOF 3=05C6 
EN3=0A7D 
END.FIL=07F0 
ENDF IL=08C5 
ESCAPE=0534 
EXEC=082E 
FILBUF=03E2 
F INEX=086F 
GET .N=0876 
GETCR=0853 
INSERT 1=05CC 
INSERT3=05E9 
IPADDS=08BE 
KTA=0409 
LARG=082D 
L04-0AD8 
LOAD=0A98 
MESSUB1=0668 
MOV. NAM=0B78 
MOVDWN2=0612 
NAM. CMD=0B 6D 
NEW. CR=071D 


NEW. CRT=03BD 
NEXCHR=03EB 
NEXT=07D4 
NOCM=06A8 
NOF UD=0790 
NUM.BUF=0760 
NXT. D=06A2 
NXTL=08AB 
NXTLT=0698 
PBAUD=0215 
PRT. I/0=0305 
RAE. STR-0B8F 
RTSE-086C 
SENDCHR=039C 
SORT=08FF 
SPD2=08F7 
SUBL=0800 
TAPE. DD-0A3F 
TOLAR=0759 
TTY. OUT=02DB 
UPDATE=0586 
UPDATE3=059C 
WRT . HOOK=039F 
©C.CHK=0A2B 


//0000, 0BDD, OBDD 


>SE 
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NEW. HOT=0206 
NEXCHR1=04A3 
NEXT 1=07DA 
NODRIV=OBBE 
NOSKP=085A 
NXC=067E 

NXT. LAB=0993 
NXTL1=08B4 
PART 2=07B1 
PRMT. OT=03C3 
RAE. END=0B9C 
RESTORE=0885 
SAVE=09A3 
SET. EM=0A4A 
SORT .EXIT=092C 
STBUFF=03E5 
TAPE=08D0 
TERR=08E2 
TOUT=020C 
TTY1=02F 1 
UPDATE 1=058D 
UPDATE4=05A6 
ZERBUF-0652 
©C.CHK1=0A36 


2000-5ЕЕС 6000-7ЕЕС 7Е00 


3902  6AEE 
// 


> 


NEW. WARM=0203 
NEXCHR2=054E 
NOBSL=0392 
NOED=0864 

NOT. YET=03B8 
NXC0-067C 
NXT. LABEL-0911 
NXTL2=08B1 
PART 3=07BC 
PRMT. OUT=03CF 
RAE. I/0=032E 
RST. DSK=0B4F 
SAVE. D-0BA7 
SET. VEC=0278 
SPD1=08E5 
STORE=08EB 
TAPE. D-0B3F 
TEXT-09DB 
TSTL-080B 
TTYOUT-020F 
UPDATE 2=0594 
WARM=0260 
ZERBUF 1=0656 


